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06-005 Source Listing =300 71382 eae; DLSKSUMSMASTER  FEDF- SRCJEDFFUNCS.PASS?7C1) ' 
0001 {C IDENT (*V04-000'), ( 
000 { ++ ( 
000 PARARARAALALALALALALELALELALLESESE RESALE SALE SELES EA AL AREAS ERASE EEE SEES REESE SSS ‘ 
0004 ee tr 
0005 ** COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ( 
** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ( 

ota'N4 ALL RIGHTS RESERVED. * 

» 
0009 ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ( 
0010 ** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ( 
0011 ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ( 
pols ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ¢ 
001 ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
od a TRANSFERRED. * | ‘ 

® & 

0016 ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ( 
0017 ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ( 
ooi8 os CORPORATION. a 

® 
0020 ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | ( 
o0s3 = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * | ‘ 

® 
0023 ee ® ( 
o0Se PARRAALAALALALELALALAESLALLALELELELESLELLA SARA RAE EAS EAEAEAAA EASA ESE SESE RR RRR S ARS SG | ‘ 
0026 ( 
0027 ( 
0028 ( 
594 FACILITY: VAX/VMS EDF (CEDIT/FDL) UTILITY ¢ 
0031 ABSTRACT: This facility is used to create, modify, and optimize 
O08 FDL specification files. ¢ 
st 34 ENVIRONMENT: NATIVE/USER MODE ¢ 
0036 AUTHOR: Ken F. Henderson Jr. ¢ 
0038 CREATION DATE: 27-Mar-1981 ( 
0039 ( 
0040 MODIFIED BY: ( 
0041 v03-013 RRBOO16 Rowland R. Bradley 6 Mar 1984 ( 
sng Signal error if insufficient information to do ( 
004 analysis and disallow logging of file creation ( 
pee if AUTO_TUNE (/NOINT) 
0046 V03-012 RRBO006 Rowland R. Bradley 12 Jan 1984 — ( 
0047 Enable user to specify analysis filename within optimize ( 
965 script. 
0050 v03-011 KFHOO11 Ken Henderson 8 Aug 1983 ( 
ith Changes for seperate compilation. 
0088 v03-010 KFHOO10 Ken Henderson 26 Apr 1983 ( 
0054 Modified SET_PROC to set VISIBLE_QUESTION. ( 
Boge REDESIGN => TOUCHUP. 
0057 v03-009 KFHOO009 Ken Henderson 14 Apr 1983 
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Pa 
Source Listing Ife -Sep-1984 att $4 DISKSVMSMASTER: Pepe sh SRCIJEDFFUNCS.PAS; ed) | 
0058 Added SET_PROC. 
B22 Removed DESIGN_SCRIPT_PROC. 
0061 v03-008 KFHOO08 Ken Henderson 20 Jan 1983 
B06 Removed references to DASH. | 
0064 v03-007 KFHO007 Ken Henderson 11 Jan 1983 
0065 Modified CREATE_NEW wf OL to es 
0066 “Output not created” message on one 
sae 4 Line, in reverse video, wi h bell 
0069 v03-006 KFHO006 Ken Henderson 15 Nov 1982 
TA Added support for Pascal v2 
007 v03-005 KFHOOOS Ken Henderson 8 Sept 1982 
007 Modified call to Script_option to 
Sons use new QUERY routine. 
0076 V03-004 KFHO004 Ken Henderson 31 March 1982 
0077 reuse CREATE_NEW_FDL to fix 
on78 FT2 QAR 967 
0080 v03-003 KFHO003 Ken Henderson 28 March 1982 
0081 Modified CREATE_NEW_FDL to not output 
te FDL file if the definition is empty. 
0084 v03-002 KFHO002 n Henderson 23-Mar-1982 
0085 Modified HELP_ pro to fix PTD QAR 831 
0086 
Modified ew routines to fix FT2 


| 

| 

| 

| 

0087 v03-001 KFHOOO1 Ken Henderson 17-Mar-1982 
0088 af 
0089 QARs 500,510 
0090 | 
| 

| 

| 
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ENVIRONMENT ("LIBS:EDFFUNCS'), 
MODULE EDFFUNCS (INPUT,OUTPUT); 


INHERIT ( 
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S116 any 

O17 CREATE_NEW_FDL == Routine to output a new FDL file. 
3884 This routine outputs the FDL file to the disk. 
aH CALLING SEQUENCE: 
at 5 CREATE_NEW_FDL; 
0138 INPUT PARAMETERS: 
gist none 

0128 

at 94 IMPLICIT INPUTS: 
0130 

0131 none 

OI 3g 

013 OUTPUT PARAMETERS: 
0134 

0135 none 

0136 

0137 IMPLICIT OUTPUTS: 
0138 

0139 none 

0140 

0141 ROUTINES CALLED: 
0142 

0143 none 

0144 

0145 ROUTINE VALUE: 
0146 

0147 none 

0148 

0149 SIGNALS: 

0150 

0151 none 

3136 

015 SIDE EFFECTS: 
0154 

0155 none 

0156 

0157 -- } 
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Source Listing 


; PROCEDURE CREATE_NEW_FDL; 
6 VAR 
6 TEMP_STRING255 : STRINGESS: 
6 FID_BLOCK : ARRAY (0..2] OF LONG; 
I : INTEGER; 
J : INTEGER; 
BEGIN 


feds output the FDL file if the definition is not empty. 
IF DEF_HEAD = DEF_TAIL THEN 
BEGIN 
FILE_CREATED := FALSE; 
| 


WRITELN (CRLF ,SHIFT,CONTROL_G,ANSI_REVERSE, 
‘Output not created - Current FDL Befinition empty.",ANSI_RESET); 


pole leololeolelalelealololelolaleolololeolelolalelelolelololalololololololo) 
Re ee er er ee ee ee ee 
Co 


END { IF TRUE DEF_HEAD = DEF_TAIL } 
ELSE 
BEGIN 
RES_OUTPUT_FILENAME_DESC := NULL_STRING; 
NEW (RES OOTPUT FILENAME_DESC.DSCSA_POINTER) ; 
RES_OUTPOT FILENAME _DESC-DSCSW_LENGTH := 255; 
FLAGS.FDLS$V_SIGNAL := TRUE; 
} FLAGS. DL$V~SCALLBACK := FALSE; 
3 ISTATUS := FDLSCREATE ( 
0 N _DESC, 
0 OUTPUT ~F ILENAME_DESC 
0196 DEFAULT FILENAME DESC 
0197 RES_OUTPUT_F ILENAME_DESC, 
0198 FID"BLOCK, 
0199 FLAGS 
0200 ); 
$503 IF ODD (ISTATUS) THEN 
$388 
0204 BEGIN 
0205 
0206 { + 
OS 0R Open his file and initialize it. 
0209 DEST_IS_TERMINAL __:= FALSE; 
0211 WITH RES_OUTPUT_FILENAME_DESC DO 
psig BEGIN 
0214 
P49 FOR I := 1 TO 255 DO 


WA. NANO NIPUNOPOPOPONoNyUN) SS 
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oar 
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END; 
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IF I > DSCSW_LENGTH THEN 
TEMP_STRING255(1] 
ELSE 
TEMP_STRING255C1) := DSCSA_POINTER*CIJ; 


END; 


{ + 
Clear out the terminal in case the terminal is the output. 
IF NOT AUTO_TUNE THEN 


BEGIN 
OPEN (FDL_DEST,SYSSOUTPUT_NAME ,NEW,RECORD_LENGTH := 252); 
CLOSE (FDC_DEST); 

END; 


{ + 

Now implement ‘granularity’. 

IF ISAM_ORG THEN 
SHUFFLE_AREAS; 


{ + 
Now open the ‘real’ FDL file. 


OPEN (FDL_DEST,TEMP_STRING255,0LD); 

REWRITE (FDL_DEST); 

{ + 

Put the current definition out to the disk. 
GENERATE _FDL; 


{ + 
We're done, close the file. 
CLOSE (FDL_DEST); 


Bde to show the created filename on exit. 
FILE_CREATED := TRUE: 
IF AUTO_TUNE THEN 
EDFSRESET_SCROLL; 
{ IF ODD (ISTATUS) } 
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ore END; { IF FALSE DEF_HEAD = DEF_TAIL } 
END;  { CREATE_NEW_FDL } 
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v04-000 Source Listing ety 7 13:37:08 DISKSVMSMASTER: 
$576 tie 
° 9 ADD_FDL_LINE == Let user add a Line_object to the Definition Linked List. 
0281 This routine prompts the user for his information and puts it into the 
bebe Deifinition. 
0984 CALLING SEQUENCE: 
0286 ADD_FDL_LINE; 
0287 
ose INPUT PARAMETERS: 
0289 
0290 none 
0291 
94 IMPLICIT INPUTS: 
029 
0294 SYSSINPUT: 
0295 
0296 OUTPUT PARAMETERS: 
0297 
0298 none 
0299 
8300 IMPLICIT OUTPUTS: 
030 The Definition Linked List 
030 DEF _CURRENT 
0304 
0305 ROUTINES CALLED: 
6306 
0307 none 
0308 
0309 ROUTINE VALUE: 
0310 
0311 none 
0312 
0313 SIGNALS: 
0314 
0315 none 
0316 
0317 SIDE EFFECTS: 
0318 
0319 none 
Be59 
0321 -- } 
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Source Listing 
PROCEDURE ADD_FDL_LINE; 


BEGIN 


WWWAWAIWN AWN 


OOWODNAVUEWN —“OVOONOUEw 


REESE EEE SEAS 


COOONOUS wh 


WWMM AWA 
AANA MUIUIVI 
ODONOULSWR— 


Sece 


REE E TEAS 3 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
6 
0 
0 


WWWAWNAAAAWAw 
SANNA NN 


CONOU 


DEF_TEST : “LINE_OBJECT; 

SAVE_CURRENT : “LINE OBJECT; 
: LINE_OBJECT; 

FOUND _PRI : BOOLEAN; 

EXISTS : BOOLEAN; 

PROCEED : BOOLEAN; 

SAVE .STRING := NULL_STRING; 

TEST. STRING := NULL_STRING; 

FULL_CHOICE := TRUE; 

QUERY (EDFSK_TEST_PRIMARY); 

FULL_CHOICE := TRUE; 

ASK_TEST_SECONDARY; 

SAVE := TEST; 


{ + 
a to display definition on the terminal. 


OPEN (FDL_DEST,SYSSOUTPUT_NAME ,NEW,RECORD_LENGTH := 252); 
REWRITE (FDL“DEST); 


NEW (DEF TEST); 
EF _TEST®™ 


DEF_TES = TEST; 
DEF_TEST*.FORE = NIL; 

DEF TEST* BACK = NIL; 

SAVE_ CURRENT = DEF _CURRENT; 
DEF _CURRENT = DEF_TEST; 
SHOW_CUR_PRI_SEC (FALSE); 

DEF _CURRENT := SAVE_CURRENT; 
DISPOSE (DEF_TEST); 

CLOSE (FDL_DEST); 


JECT ( 
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EXISTS := FIND OB 
SAVE .OBJECT_TYPE ,SAVE .PRIMARY, SAVE .PRINUM, SAVE .SECONDARY, SAVE .SECNUM) ; 


IF EXISTS THEN 
PROCEED 
ELSE 
PROCEED := TRUE; 
IF PROCEED THEN 
BEGIN 


QUERY (EDF SK_CONF IRM) 


15 


F 
EDFFUNCS 16-Sep-1984 01:17:14 VAX-11 Pascal V2.4-277 Pa 10 
v04-000 Source Listing 828eb= 18 4 Tae D1 SKSUMSMASTER’ EEDF-SRCIEDFFUNCS.PAS(3 746) | 
0 | 
9 81 TEST := SAVE; 
9 58 ASK_TEST_SECONDARY_VALUE; | 
0385 MAKE_SCRATCH; | 
O36? DEF _SCRATCH* := TEST; 
0389 IF DEF_SCRATCH*.PRIMARY = TITLE THEN | 
0391 DEF_SCRATCH*.CBJECT_TYPE = := PRI 
0398 - . | 
039 ELSE 
0394 | 
0398 DEF _SCRATCH*.OBJECT_TYPE = := SEC; | 
0397 { **e* SUPPORT END OF LINE COMMENTS !!! tee } 
0599 INSERT_IN_ORDER (REPLACE_0BJ); | 

| 


IF TEST.PRIMARY <> TITLE THEN 
BEGIN 


ooo 
wre 


{ + 
If_there wasn't one of these primaries, make one. 


DEF CURRENT := DEF_HEAD; 
FOUND _PRI FALSE; 


~ | 
REPEAT | 
IF ¢ | 
(DEF _CURRENT*.OBJECT_TYPE = PRI) | 
(DEF_CURRENT*.PRIMARY = SAVE.PRIMARY) 

| 


(DEF _CURRENT*.PRINUM = SAVE.PRINUM) 
) THEN 


RDI at et et et ot oo 


FOUND_PRI := TRUE 
ELSE 
INCR_CURRENT; 
UNTIL (FOUND_PRI OR (DEF_CURRENT = NIL)); 
IF NOT FOUND_PRI THEN 


RRRRRRRRRRKKRRRRRRRRRRRRRRRERRRRRREEE 


BEGIN 
TEST. OBJECT _TYPE = PRI; 
TEST.PRIMARY = SAVE.PRIMARY; 
TEST. PRINUM = SAVE .PRINUM: 
TEST. SECONDARY = DUMMY_SECONDARYS; 
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0% 7 TEST. SECNUM :2 0; 
TEST.STRING := NULL STRING; 

38 TEST. COMMENT := NULLISTRING; 
bees MAKE_SCRATCH; 

4 DEF __SCRATCH* := TEST; 
0444 - at | 
0445 INSERT_IN_ORDER (REPLACE_OBJ); 
044 END; { IF NOT FIND_OBJECT } 


48 
END; { IF TEST.PRIMARY <> TITLE } 


CLEAR (SCREEN); 

WRITELN (SHIFT,TAB,TAB,ANSI_REVERSE, 
* Resulting Primary Section ', 
ANSI_RESET,CRLF); 


OPEN __ (FDL_DEST, SYSSOUTPUT_NAME ,NEW,RECORD_LENGTH := 252); 
REWRITE (FDL DEST); 


SHOW_PRIMARY_SECTION (SAVE); 
CLOSE (FDL_DEST); 
END; { IF TRUE PROCEED } 
TEST := SAVE; 
QUERY (EDFSK_RETURN) ; 


END;  { ADD_FDL_LINE } 
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pit { ++ 

Be74 CHECK_DEFAULT == See if the current default primary exists. 

Bere bee De malt ea By definition and checks to make sure that 
0478 : 

eh $4 CALLING SEQUENCE: 

eee CHECK _DEF AULT; 

bees INPUT PARAMETERS: 

et ¥4 none 

0487 IMPLICIT INPUTS: 

0489 

0490 OUTPUT PARAMETERS: 


049 none 


049 

0494 IMPLICIT OUTPUTS: 

0495 

0496 

0497 ROUTINES CALLED: 

0498 
0499 
0500 ROUTINE VALUE: 
0501 
050 none 
050 
0504 SIGNALS: 
0505 
0506 none 
0507 

0508 SIDE EFFECTS: 

0509 

0510 none 

0511 

0512 -- } 
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EDE FUMES sai 33 ies igeBep-1964 01:17:14 vAtett Pas 
13 PROCEDURE CHECK_DEFAULT; 
i oe FOUND PRIMARY : BOOLEAN; 
18 ~ " 
19 BEGIN 
IF DEF_HEAD <> DEF_TAIL THEN 
BEGIN 


{ + 
9 the current default primary exist? 


AE AOSO NOR O 
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pe jon tna lo jlo lolololololololololelolelolololololololo) 


DEF CURRENT := DEF_HEAD; 
TEST.OBJECT TYPE := PRIG 
TEST.PRIMARY := DEFAULT_PRIMARY; 
TEST.PRINUM := DEFAULT-PRINUM; 
FOUND_PRIMARY := FALSE; 
REPEAT 

IF CURRENT_EQ_TEST (TEST,FALSE) THEN 

FOUND_PRIMARY  := TRUE 
ELSE 


INCR_CURRENT; 
UNTIL (DEF_CURRENT = NIL) OR FOUND_PRIMARY; 
IF NOT FOUND_PRIMARY THEN 
BEGIN 


fing out what the Ist ‘real primary is. 

DEF _CURRENT := DEF_HEAD; 

IF DEF _CURRENT*.PRIMARY = IDENT THEN 
INCR_CURRENT; 


PIPPI UI ES 2o sees 
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59 { + 

ef Set the default up to be the first one that exists. 
$6 DEF AULT_PRIMARY := DEF_CURRENT* PRIMARY; 
6 DEF AULT” PRINUM := DEF _CURRENT*.PRINUM; 
¢ INPUT_NOMBER := DEFAULT_PRINUM; 

5. END; 

56 

68 END; 

28° 

570 END; { CHECK_DEFAULT } 
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DELETE_FDL_LINE == Get rid of a Line_object. 


SN 
7o~ 


7 4b routine lets the user find and remove a lLine_object from the Definition 
a ed List. 
79 CALLING SEQUENCE: 

DELETE_FOL_LINE; 

INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

FULL_ PROMPT 


ANSI REVERSE 

TAB 

DEF _HEAD 

DEF- CURRENT 
SYSSINPUT: 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 


SOCOOCCCOOCOOOOOOOOOOOOOOoOoOooOOo 


PUPP PUPS ASIII 
SSLERRANLESSELEARFARSS 


S288 


FDL_DEST 
DEF CURRENT 


060 
0604 SYSSOUTPUT: 
0605 
0606 ROUTINES CALLED: 
0607 
0608 CLEAR 
0609 ASK_DELETE_OPTION 
0610 SHOO_CURRENT 
0611 INCR~ CURRENT 
O6i¢ 
061 ROUTINE VALUE: 
0614 
oF none 

16 
0617 SIGNALS: 
0618 
0619 none 
0620 
0621 SIDE EFFECTS: 
54 
06 none 
0624 
0625 -- } 
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86 { PROCEDURE DELETE_FDL_LINE; 
0629 VAR 
0650 AV : LINE_OBJECT; 
0631 DEF _REM_PRI : “LINE OBJECT; 
06 ¢ REMAINIAG_PRI : BOOLEAN; 
06 REMAINING SEC : BOOLEAN; 
06 NO_MORE_ PRI : BOOLEAN; 
86 FOOND_IT : BOOLEAN; 
06 BEGIN 
06 
06 


{ + 
If_the Definition Linked List is not empty, then do it, else skip it. 
IF DEF_HEAD <> DEF_TAIL THEN 


BEGIN 
SAVE . STRING := NULL_STRING; 
TEST. STRING := NULLZSTRING; 


CHECK_DEFAULT; 


{ + 
These routines will only return if an existing Line_object has been given. 
If ‘EXTANT_ONLY' is specified. 


FULL 


itttattt tats & 
SEES SSC ormraRSE RTE T ae Ramone 


CHOICE := FALSE; 

QUERY (EDF SK_TEST_PRIMARY); 

NO_MORE_PRI := FALSE; 
066 FULL_ CHOICE := FALSE; 
066 ASK_TEST_SECONDARY; 
066 
066 { + 
pees Remember which primary it was. 
0666 SAVE := TEST; 
0667 
0668 FOUND_IT := FIND_OBJECT ( 
0669 TEST.OBJECT_TYPE, TEST.PRIMARY 
ger8 TEST. PRINUM; TEST SECONDARY, TEST. SECNUM 
0672 3 
067 { + ‘ 
pore Setup to display definition on the terminal. 
bere OPEN (FDL_DEST,,SYSSOUTPUT_NAME ,NEW,RECORD_LENGTH := 252); 
9677 REWRITE (FDL-DESTS; 
ith SHOW_CUR_PRI_SEC (TRUE); 
0681 CLOSE (FDL_DEST); 
eg) 
068 QUERY (EDFSK_RETURN) ; 


td ot od am 


04-000 
0684 
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DELETE_CURRENT; 


IF TEST.PRIMARY <> TITLE THEN 
BEGIN 


{ + 
aogh through the List to see what remains of this primary. 


REMAINING_PRI := FALSE; 
REMAINING ~SEC r= FALSE: 
DEF_CURRENT := DEF_HEAD; 
REPEAT 


IF ¢ 

COEF _CURRENT* PRIMARY = SAVE.PRIMARY) 
(DEF _CURRENT*.PRINUM = SAVE.PRINUM) 

) THEN 


BEGIN 
IF DEF _CURRENT*.OBJECT_TYPE = PRI THEN 
BEGIN 


REMAINING PRI := TRUE; 
DEF _REM_PRI := DEF_CURRENT; 


END 
ELSE IF DEF_CURRENT*.OBJECT_TYPE = SEC THEN 
REMAINING_SEC := TRUE; 
END; 
INCR_CURRENT; 
UNTIL (REMAINING_PRI AND REMAINING _SEC) OR (DEF_CURRENT = NIL); 


IF ( 

(REMAINING_ PRI) 
(NOT REMAINING_ SEC) 
) THEN 


BEGIN 
WRITELN CCALF SHIFT ANS! REVERSE, | : 
* No more Secondaries with this Primary, deleting Primary. ‘', 
ANSI_RESET); 


DEF _CURRENT := DEF _REM_PRI; 


oa 


{ 
\ 
| 
| 
} 
| 
} 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
| 
| 
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t 
\ 

0741 DELETE CURRENT; | 1 
Ore NO_MORE_P := TRUE; 
0744 LIBSWAIT (3.0); 1 
0745 1 
0746 END 1 
0747 1 
0748 ELSE IF (¢ 1 
0749 (NOT REMAINING_PRI) 1 
o720 (REMAINING. SEC) | : 
0738 ) THEN ~ 1 
O27 { NULL-STATEMENT } | : 
0755 | 1 
0756 ELSE IF ¢ 1 
0757 (NOT REMAINING_PRI) 1 
0758 AND 1 
0759 (NOT REMAINING. SEC) 1 
0760 ) THEN | 1 
0761 1 
0762 BEGIN 1 
0763 1 
0764 WRITELN (CRLF ,SHIFT,ANSI_REVERSE, 1 
0765 ' This primary Section has now been entirely Deleted. ', 1 
0766 ANSI RESET) 1 
0767 NO_MORE_PRI- := TRUE; 1 
0768 | 1 
0769 LIBSWAIT (2.0); 1 
0770 1 
0771 END 
077 
077 ELSE IF ¢ 
0774 (REMAINING_PRI) 
0775 
0776 (REMAINING_ SEC) 
0777 ) THEN | 
0778 
0779 BEGIN 
0780 
0781 CLEAR (SCREEN); | 
078 WRITELN (SHIFT, TAB, TAB, ANSI_REVERSE, | 


sulting Primary S Section’, 
ANSI SRESET® CRLF); 


OPEN (FDL, DEST .SYSSOUTPUT NAME .NEW, | 

CORD_LENGTH :="252); | 

REWRITE (FDL_DEST)? | 

SHOW_PRIMARY_SECTION (SAVE); | 
CLOSE (FDL_DEST); 

END; 

TEST.PRIMARY := SAVE PRIMARY; | 


~ sw 
SISSSASSe 


wn _ 


EOFFUNCS 
VO6-000 


END; 


14. VAX=-11 Pascal 
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So ifs 
urce Listing “S$ 
TEST.PRINUM := SAVE .PRINUM; 
IF NOT NO_MORE_PRI THEN 
QUERY (EDFSK_RETURN); 
END; { IF TEST.PRIMARY <> TITLE } 
END { IF TRUE DEF_HEAD <> DEF_TAIL } 
ELSE 


BEGIN 


WRITELN ( 
SHIFT,ANSI_REVERSE," The Current Definition is Empty. ',ANSI_RESET); 
LIBSWAIT (3.0); 

END; { IF FALSE DEF_HEAD <> DEF_TAIL } 
{ DELETE_FDL_LINE } 


VE see ch 
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Source Listing DISKSVMSMA 
{ ++ 
MODIFY _FDL_LINE == Modify an extant Line_object. 


This routine lets the user view and yer w the contents of a particular 
Line_object in the Definition Linked Lis 


CALLING SEQUENCE: 
MODIFY_FDL_LINE; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 


SYSSINPUT: 
The Definition Linked List 


OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


SYSSOUTPUT: 
The Definition Linked List 


ROUTINES CALLED: 
none 

ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 

«= } 


20 
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0868 PROCEDURE MODIFY_FDL_LINE; 

0869 

0870 VAR 

0871 SAVE : LINE_OBJECT; 

pore FOUND_IT : BOOLEAN; 

087 

0874 BEGIN 

0875 

0876 { + é : 

+ 1A If_the Definition Linked List is not empty, then do it, else skip it. 
0879 IF DEF_HEAD <> DEF_TAIL THEN 

0880 

0881 BEGIN 

088 

088 SAVE .STRING := NULL_STRING; 

0884 AVE .COMMENT 7= NULL STRING; 

0885 TEST.STRING := NULL STRING; 

pees TEST. COMMENT := NULL_STRING; 

0888 CHECK_DEFAULT; 

0889 

0890 { + 

0891 These routines will only return if an existing Line_object has been given. 
+4 If *EXTANT_ONLY® is specified. 

0894 FULL HOICE ALSE; 

9 344 BURT (EDF SK_ TEST PRIMARY) ; 

0897 FULL_ CHOICE = FALSE; 

oa ASK TEST “SECONDARY; 

0900 FOUND_IT := FIND_OBJECT ¢ 

0901 TEST.OBJECT_TYPE Ht a Pa ake TEST. PRINUM, 
090 TEST. SECONDARY, TEST 

090 ); 

0904 

0905 SAVE := DEF_CURRENT*; 

0906 

0907 { + 

0908 Setup to display definition on the terminal. 

0909 > 


09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 


OPEN (FDL _DEST,SYSSOUTPUT_NAME ,NEW,RECORD_LENGTH := 252); 
REWRITE (FDL-DESTS; 


SHOW_CUR_PRI_SEC (TRUE); 
CLOSE (FDL_DEST); 

TEST —-:= SAVE; 
ASK_TEST_SECONDARY_VALUE; 
MAKE_SCRATCH; 
DEF_SCRATCH* _—:= TEST; 


FUN 0 OONOuUeEWwN—O 


PROPRIO <2 tt tt es 
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IF DEF_SCRATCH*.PRIMARY = TITLE THEN 

DEF _SCRATCH*.OBJECT_TYPE := PRI 
ELSE 

DEF __SCRATCH* .OBJECT_TYPE := SEC; 
INSERT_IN_ORDER (REPLACE_OBJ); 
CLEAR (SCREEN); 
WRITELN (SHIFT, TAB, TAB, ANSI REVERSE, 


* Resulting Primary Section’, 
ANSI_RESET.CRLF); 


SRIFAEAYLSSOVSE A 


PELSSSYSSSSSSSSSS33S3S333Bi Ss 


0 
1 OPEN __ (FDL_DEST, SYSSOUTPUT_NAME ,NEW,RECORD_LENGTH := 252); 
2 REWRITE (FDLDESTS; 
4 SHOW_PRIMARY_SECTION (SAVE); 
$ CLOSE (FDL_DEST); 
0948 TEST := SAVE; 
0949 
0990 QUERY (EDFSK_RETURN); 
0952 END { IF TRUE DEF_HEAD <> DEF_TAIL } 
095 
ELSE 
BEGIN 


09 
09 


WRITELN ( 
SHIFT,ANSI_REVERSE,' The Current Definition is Empty. ',ANSI_RESET); 
LIBSWAIT (3.0); 
END; { IF FALSE DEF_HEAD <> DEF_TAIL } 
END; { MODIFY_FDL_LINE } 


$3233 
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oe! { ++ 

8% HELP_PROC == Prompt for help and process it. 

971 This routine interfaces to the LBRSOUTPUT_HELP routine to access the 
Lf; help Library. 

097 

0974 CALLING SEQUENCE: 

0975 

0976 HELP_PROC; 

0977 

0978 INPUT PARAMETERS: 

0979 

0980 none 

0981 

o38 IMPLICIT INPUTS: 

Sone The help Library: SYS$LIBRARY:EDF.HLB 

0986 OUTPUT PARAMETERS: 

0987 

0988 none 

0989 

343 IMPLICIT OUTPUTS: 

3454 SYSSOUTPUT: (through Lib$put_output) 

0994 ROUTINES CALLED: 

0995 

0996 LBRSOUTPUT_HELP 

0997 

0998 ROUTINE VALUE: 

0999 


1000 none 
1001 

1002 SIGNALS: 
1003 

1004 none 
1005 

1006 SIDE EFFECTS: 
1007 

1008 none 
1009 

1010 -- } 
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PROCEDURE HELP_PROC; 


BEGIN 


oO 
— 


{ + 
Call the Librarian's help routine that will prompt the user for any 
additional latarnation. 


ISTATUS = LBRSOUTPUT_HELP ( 
NE GOTH (LIBSPUT_OUTPUT), 


DDRESS (LIBSGET_INPUT) 


aaa = 


AD 
IN 
6FHLP_STRING, 
‘ 


ha what the problem is. 

IF NOT ODD CISTATUS) THEN 
LIBSSIGNAL (ISTATUS,0.0,0); 
{ HELP_PROC } 


a kk a kk kk a dd od 
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{ ++ 
VERIFY_ISAM_DEFINITION == Check the Linked List. 
This routine verifies that the FDL definition is there and is indexed. 
CALLING SEQUENCE: 
boolean := VERIFY_ISAM_DEFINITION; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINES CALLED: 
none 
ROUTINE VALUE: 
true or false depending upon the checking 
SIGNALS: 
none 
SIDE EFFECTS: 
none 
e- } 
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oS FUNCTION VERIFY_ISAM_DEFINITION : BOOLEAN; 
OBS ies NON_EMPTY BOOLEAN 
086 ISAM_FDL —: BOOLEAN: 
088 BEGIN 
090 NON_EMPTY FALSE 
091 ISAM_FDL = := FALSE: 
098 
09 { + 
Bae Check for a definition that has more than an Ident. 
0 IF ¢ 
44 oe <> DEF _TAIL) 
(DEF _HEAD*.PRIMARY <> IDENT) 
) THEN 
BEGIN 
NON_EMPTY := TRUE; 
{ + 
See what type of file the definition is now. 
Ist, find the Line_object that tells that. 
IF FIND_OBJECT (SEC,FILE$S,0,ORGANIZATION,O) THEN 
BEGIN 
IF DEF_CURRENT*.QUALIFIER = FDL$C_IDX THEN 


ISAM_FDL := TRUE; 
END; { IF TRUE FIND_OBJECT () } 
IF NOT ISAM_FDL THEN 
BEGIN 
WRITELN (SHIFT,ANSI_REVERSE, 
* The current file Organization is not Indexed. ', 
ANSI_RESET); 
LIBSWAIT (3.0); 
END;  { IF FALSE ISAM_FDL } 
END { IF TRUE (DEF_HEAD <> DEF_TAIL) OR (DEF_HEAD*.PRIMARY <> IDENT) } 
ELSE 
IF NOT AUTO_TUNE THEN 
BEGIN 


NN Se Arun O soe 
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{ + 

Slap the user's wrist. 

WRITELN (SHIFT, ANSI_REVERSE, 

" The surcent FDL Definition is empty. ', 

ANSI_RESET); 

LIBSWAIT (3.0); 


BEGIN 
a aetanie: (EDFS_INSFANL,0,0,0); {no definition Like above) 


{ + 
We must have something, and that something must be indexed. 


VERIFY_ISAM_DEF INITION := (NONEMPTY AND ISAM_FDL); 
END;  { VERIFY_ISAM_DEFINITION } 
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{ +¢ 


REDESIGN_SCRIPT_PROC == Redesign a definition. 
This routine allows old definitions to done over. 


CALLING SEQUENCE: 
REDESIGN_SCRIPT_PROC; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
INDEXED_DESIGN 
ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 

none 

e } 
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PROCEDURE REDESIGN _SCRIPT_PROC; 
BEGIN 
IF VERIFY _ISAM_DEFINITION THEN 
INDEXED_DESIGN (TRUE,FALSE); 
END; { REDESIGN_SCRIPT_PROC } 
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{ +4 
ADD_KEY_SCRIPT_PROC == Define a new key. 
This routine allows new keys to be added to the definition. 
CALLING SEQUENCE: 
ADD_KEY_SCRIPT_PROC; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
REDESIGN_FDL 

ROUTINE VALUE: 

none 

SIGNALS: 

none 

SIDE EFFECTS: 

none 

-- } 
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PROCEDURE ADD_KEY_SCRIPT_PROC; 


IF VERIFY _ISAM_DEFINITION THEN 
BEGIN 


OCODODOmon~n~ 
bey tert her — SP, P= 


{ + 
See what we have already. 
SCAN_DEFINITION (FALSE); 


{ + 

Set the key that we have to redesign. 
IDATACEDFSK_ACTIVE_KEY] := HIGH_KEY; 
IF FOUND_O THEN 


Frege ee ; Page 30 
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IDATACEDF $K_ACTIVE_KEY] := IDATACEDFSK_ACTIVE_KEY] + 1; 


{ + 
Go model and select those parameters. 


INDEXED_DESIGN (TRUE ,TRUE); 


{ IF TRUE VERIFY_ISAM_DEFINITION } 


{ ADD_KEY_SCRIPT_PROC } 


E 
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wee) 
. 38 DELETE_KEY_SCRIPT_PROC == Remove a key definition from the Link List. 

1295 This routine allows key definitions to be removed - along with the 

: 39 accompanying area proposals. 
; ss CALLING SEQUENCE: 

: 4 DELETE _KEY_SCRIPT_PROC; 

: 4 INPUT PARAMETERS: 

1304 none 

1305 

1 IMPLICIT INPUTS: 

1307 

: 08 none 

1310 OUTPUT PARAMETERS: 
1312 none 

131 

1314 IMPLICIT OUTPUTS: 

1315 

1316 none | 
1317 

1318 ROUTINES CALLED: 

1350 INDEXED_DESIGN | 
1356 ROUTINE VALUE: 

132 

1324 none 

1325 

1326 SIGNALS: 

1327 

1328 none 

1483 

13 SIDE EFFECTS: 

HE 

none 

1338 

1334 -- } | 
| | 
| | 
| 
| 
i | 
| 
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PROCEDURE DELETE_KEY_SCRIPT_PROC; 
PROCEDURE DELETE_SECTION (SECTION : PRIMARY_TYPE; SECT_NUM : INTEGER); 


32 
) 


SOF 


: BEGIN 
¢ IF FIND_OBJECT (PRI,SECTION,SECT_NUM,DUMMY_SECONDARY$,0) THEN 
: BEGIN 
6 WRITELN cenit ls prcetiog . 
7 SECTION: PRIMARY WIDTHLSECTION],SECT_NUM:3,"° primary section.'); 
& QUERY (EDFS$K_RETURN); 
69 DELETE_PRIMARY_SECTION (SECTION,SECT_NUM); 
31 END; { IF TRUE FIND_OBJECT () > 
358 END;  { DELETE_AREA } 
355 VAR 
356 LO_AREA : INTEG R: 
337 LIAREA : INTEGER 
28 LXTAREA : INTEGER: 
360 BEGIN 
3e¢ IF VERIFY_ISAM_DEFINITION THEN 
364 BEGIN 
365 
366 


{ + 

See what we have. 
SCAN_DEFINITION (TRUE); 
IF HIGH_KEY <> 0 THEN 
BEGIN 


RRO 


OVE wWn—O0an 


{ + 
See which areas are used by this key. 


AAA ALAI AI 


SNS NNN 


rs IF FIND_OBJECT (SEC,KEY,HIGH_KEY,DATA_AREA,O) THEN 
LO_AREA := DEF _CURRENT* .NUMBER 
38 ELSE 
3a LO_AREA 23 91; 
386 IF FIND_OBJECT (SEC,KEY,HIGH_KEY,LEVEL1_INDEX_AREA,0) THEN 
ing L1_AREA := DEF _CURRENT* .NUMBER 
90 ELSE 
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L1_AREA 7= 91; 
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IF FIND_OBJECT (SEC, KEY,HIGH_KEY,INDEX_AREA,O) THEN 
LX_AREA := DEF _CURRENT* .NUMBER 

ELSE 
LX_AREA := <1; 


i Setnane those areas that are also used by other keys. 
DEF _CURRENT := DEF _HEAD; 
WITH DEF _CURRENT* DO 
BEGIN 
REPEAT 


IF ¢ 

(PRIMARY = KEY) 

(PRINUM <> HIGH KEY) 

(SECONDARY = DATA_AREA) 
| 
| 
| 
| 
| 


(NUMBER = LO_AREA) 
) THEN 


LO_AREA := <1; 


IF ¢ 

(PRIMARY = KEY) 

AND 

(PRINUM <> HIGH_KEY) 

(SECONDARY = LEVEL1_INDEX_AREA) 


(NUMBER = L1_AREA) 
) THEN 


L1_AREA := =1; 


IF ( 
(PRIMARY = KEY) 

(PRINUM <> HIGH.KEY) 
(SECONDARY = INDEX_AREA) 


(NUMBER = LX_AREA) 
) THEN 


LX_AREA := =1; 
INCR_CURRENT; 


<= | 


| 
| 
| 
| 
| 
| 
| 
| 
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UNTIL DEF_CURRENT = NIL; 
END; { 00 } 


{ + 
Get rid of the key definition. 
DELETE_SECTION (KEY,HIGH_KEY); 


bes rid of any now obsolete area definitions. 
IF NOT (LO_AREA < 0) THEN 
DELETE_SECTION (AREA,LO_AREA); 
IF NOT (L1_AREA < 0) THEN 
DELETE_SECTION (AREA,L1_AREA); 
IF NOT (LX_AREA < 0) THEN 
DELETE_SECTION (AREA,LX_AREA); 


WRITELN (SHIFT,‘End of Delete_Key_Indexed Script.'); 
QUERY (EDF SK_RETURN) ; 


END 

ELSE 

BEGIN 
WRITELN (SHIFT,ANSI_REVERSE, 
* This script will not delete the Primary Key. ', 
ANSI_RESET); 
LIBSWAIT (3.0); 

END; 

END; { IF TRUE VERIFY_ISAM_DEFINITION } 
END;  { DELETE_KEY_SCRIPT_PROC } 
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1299 oy 

\t38 OPTIMIZE_SCRIPT_PROC == Optimize extant definitions. 
1208 This routine allows old definitions to modified and optimized. 
Hs CALLING SEQUENCE: 
1280 OPTIMIZE_SCRIPT_PROC; 
1506 INPUT PARAMETERS: 
1202 

1508 none 

1509 

1510 IMPLICIT INPUTS: 
1911 

12i¢ none 

151 

1514 OUTPUT PARAMETERS: 
1515 

1516 none 

1517 

1518 IMPLICIT OUTPUTS: 
1519 

1520 none 

135) 

15 ¢ ROUTINES CALLED: 
182 

1524 none 

1858 ROUTINE VALUE 

1359 

1528 none 

1529 

15 SIGNALS: 

1531 

1338 none 

153 

1534 SIDE EFFECTS: 

1535 

1536 none 

1537 

1538 -- } 
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} re PROCEDURE OPTIMIZE_SCRIPT_PROC; 
1 2g VAR 
| 43 AN_KEY_F OUND : BOOLEAN; 
; re BEGIN 
ot} IF NOT ANALYSIS_SPECIFIED THEN 
1549 BEGIN 
1550 IF NOT (AUTO_TUNE) THEN 
132) WRITELN TSHIFT, 
1 § "An snout Analysis File is necessary for Optimizing Keys.', 
122? CRLF _SHIFT) 
132? + exit since nointerative and no analysis file 
1387 LIBSSTOP (EDFS_INSFANL,0,0,0); 
132) VISIBLE_QUESTION := TRUE; 
1361 QUERY (EDFSK_ANALYSIS); 
1368 VISIBLE_QUESTION := FALSE; 
1565 ANALYSIS_SPECIFIED := TRUE; 
1566 
1567 END; 
1568 
1268 INPUT_ANALYSIS_FILE; 
130) AN_KEY_FOUND := FALSE; 
1378 POINT_AT_ANALYSIS; 
1575 DEF_CURRENT := DEF _HEAD; 
1576 
iF 444 REPEAT 
Hi 444 IF DEF_CURRENT*.PRIMARY = ANALYSIS_OF_KEY THEN 
1581 AN_KEY_FOUND := TRUE; 
1286 
13 INCR_CURRENT; 
1383 UNTIL (AN_KEY_FOUND = TRUE) OR (DEF _CURRENT = NIL); 
1387 POINT_AT_DEF INITION; 
1589 IF AN_KEY_FOUND THEN 
1590 
1591 BEGIN 
1338 
159 OPTIMIZING := TRUE; 
1594 REDESIGN_SCRIPT_PROC; 
1595 
1596 END 
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97 
33 ELSE 


o80 BEGIN 
606 IF NOT (AUTO_TUNE) THEN 
BEGIN 
604 WRITELN (SHIFT 
"The Analysis File must contain ANALYSIS_OF_KEY primary sections.) 
YRITELN (SHIFT, 
he DCL command “‘ANALYZE/RMS _FILE/FOL’’ produces Analysis Files.") 


CLEAR (PAUSE); 
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33 


OPTIMIZING := FALSE; 
END; {€ OPTIMIZE_SCRIPT_PROC } 
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INVOKE SCRIPT == Start up a series of questions. 
This routine dispatches to the script procedures. 
CALLING SEQUENCE: 

INVOKE SCRIPT; 

INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: 

IDATACEDF $K_SCRIPT_OPTIONJ 

SYSSINPUT_ERROR 

SYSSINPUT: 

OUTPUT PARAMETERS: 

none 

IMPLICIT OUTPUTS: 


SYSSINPUT_ERROR 
TEMP_FULL~PROMPT 


ROUTINES CALLED: 


OPTIMIZE SCRIPT PROC 
DESIGN_SCRIPT_PROC 


ROUTINE VALUE: 
none 
SIGNALS: 


SIDE EFFECTS: 


" none 
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PROCEDURE INVOKE SCRIPT; 
BEGIN 


{ + 
Reset so Ist (DCL) script only gets done once. 
IDATACEDFSK_FIRST_SCRIPT] <= EDFSK_ZERO_SCRIPT; 


{ + 

Prompt for the desired script if we don't already have one. (from DCL) 
IF IDATACEDFSK_SCRIPT_OPTION] = EDFSK_ZERO_SCRIPT THEN 

BEGIN 


{ ¢ 
See which script the user wants. 
QUERY (EDFSK_SCRIPT_OPTION); 


END { IF TRUE IDATACEDFSK_SCRIPT_OPTION] = EDFSK_ZERO_SCRIPT } 
ELSE 
BEGIN 

IF NOT AUTO_TUNE THEN 

BEGIN 


CLEAR (SCREEN); 
WRITE (SHIFT, TAB, TAB,ANSI_REVERSE); 


CASE IDATACEDFSK_SCRIPT_OPTION] OF 


EDFSK_ADD_KEY FDL : WRITE (* Add_Key'); 
EDFSK-DELETE_REY_FDL : WRITE (* Deléte_Key'); 
EDFS$K-IDX_DESIGN-FDL : WRITE (* Indexed’): 
EDFSK~SEQ-DESIGN-FDL : WRITE (* Sequential"); 
EDFSKTREL-DESIGN-FDL : WRITE (* Relative’); 
EDFSK-OPTIMIZE_FDOL : WRITE (* Optimize’); 
EDFSKREDESIGN-FDL : | WRITE (* Touchup'); 
OTHERWISE 
{ NULL-STATEMENT } ; 
END; { CASE } 


WRITELN (* Script ',ANSI_RESET,CRLF); 
END; { IF NOT AUTO_TUNE } 
END; { IF FALSE IDATACEDFSK_SCRIPT_OPTION) = EDFSK_ZERO_SCRIPT } 
TAKE_DEFAULTS := TRUE; 
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17 | 
7 é CASE IDATACEDF$K_SCRIPT_OPTION] OF 

7 4 EDFSK_IDX_DESIGN_FDL : 

17 6 BEGIN 

17 

1728 WARN_OF_ERASE; 

1729 INIT “DEF; 

7 9 INDERED_DESIGN (FALSE,FALSE); 
17 é END; 

17 

7 4 EDFSK_SEQ_DESIGN_FDL : 

7 BEGIN 

1738 WARN_OF _ERASE; 

1739 INIT DEF; 

1740 SEQ_REL_WORK; 

1741 SEQ"DEF: 

1748 

174 END; 

1744 

1745 EDFSK_REL_DESIGN_FDL : 

1746 

1747 BEGIN 

1748 

1749 WARN_OF_ERASE; 

1750 INIT DEF; 

1751 SEQ_REL_WORK; 

1738 REL“DEF; 

175 

He a 

1736 EDFSK_ADD_KEY_FDL : ADD_KEY_SCRIPT_PROC; 

1738 EDFSK_DELETE_KEY_FDL : DELETE_KEY_SCRIPT_PROC; 

1760 EDFSK_OPTIMIZE_FDL : | OPTIMIZE_SCRIPT_PROC; 

1768 EDFSK_REDESIGN_FDL : | REDESIGN_SCRIPT_PROC; 

176 OTHERWISE 

1765 

1766 { NULL-STATEMENT } ; 

176 

1768 END; { CASE } 

1769 

1770 TAKE_DEFAULTS := FALSE; 

1772 END;  { INVOKE_SCRIPT } 


| 
| 
| 
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HE i 
ire SET_PROC == Set the characteristics of the FDL Editor. 
irre This routine asks which characteristics are to be set and sets them. 
if ? CALLING SEQUENCE: 

i ¢ SET_PROC; 

17 INPUT PARAMETERS: 
1785 

17 none 

178 

1788 IMPLICIT INPUTS: 
1789 

1790 SYSSINPUT_ERROR 
1791 SYSSINPUT? 

1738 

179 OUTPUT PARAMETERS: 
1794 

1795 none 

1796 

170 IMPLICIT OUTPUTS: 
44 SYSSINPUT_ERROR 
1801 ROUTINES CALLED: 
1OOe 

180 

1804 ROUTINE VALUE: 
1805 

1806 none 
1807 
1808 SIGNALS: 

1809 

1810 

1811 SIDE EFFECTS: 
1aig 

181 none 

1814 

1815 -- } 
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Source Listing 
PROCEDURE SET_PROC; 
BEGIN 
VISIBLE_QUESTION := TRUE; 
GUERY (EDFSK_SET_FUNCTION); 
CASE IDATACEDFSK_SET_FUNCTION) OF 


EDFSK_SET_DISPLAY : QUERY (EDFSK_SURFACE OPTION); 
EDFSK_SET_EMPHASIS : QUERY (EDFSK-BUCKET_QEIGHT); 
EDFSK_SET GRANULARITY : QUERY (EDFSK_GRANULARITY); 
EDFSK_SET RESPONSES : QUERY (EDFSK_RESPONSES); 
EDF SK_SET_PROMPTING QUERY (EDFSK_PROMPTING); 
EDFSK_SET_ANALYSIS QUERY (EDFSK_ANALYSIS); 
EDF SK_SET_OUTPUT QUERY (EDFSK_OUTPUT); 
EDFSK_SET_NUMBER_KEYS : 
BEGIN 
QUERY (EDFSK_NUMBER_KEYS); 
NUMBER_KEYS_SET := TRUE; 
END; 
OTHERWISE 
{ NULL=STATEMENT } ; 
END; { CASE } 


VISIBLE_QUESTION 
{ SET_PROC } 


:= FALSE; 
END; 


END. 
{ End of file: SRC$:EDFFUNCS.PAS } 
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EDFFUNCS 16-Sep-1984 01:17:14 VAX-11 Pascal V2.4-277 Page 4 
104-000 Generated Code eet 1 ey TT ERSUNGAASTER  FEDF SRC JEDFFUNCS.PAS*# 96285 | 
~TITLE EDFFUNCS 
"JOENT (WO4+000\ | | 
00000 .PSECT $CODE,PIC,CON,REL,LCL,SHR,EXE ,RD,NOWRT , 2 | 
> a 6 74 6F 6 74 75 70 74 75 4F 00 C.AAA: .ASCII \Output not created - Current FDL Definit\- | 
4 6 ¢ "2 ve 6S ef 39 2D 3 64 65 74 $} O00 Xion empty. \<0><0> 
6F 6 4 69 6 9 $e 8 44 40 44 4 0 O1C 
00 00 9 7% go 65 20 ge 00¢A | 
69 72 50 20 6 —E 69 74 $f 7 $3 $3 4 C.AAB: .ASCII \ Resulting Primary Section \<0> 
00 2 of 6F 4 4 6 § 20 7 2 61 6D et: 
of F 65 2 $3 of 6p 8 gf af ey B82 C.AAC: .ASCII \ No more Secondaries yi this Primary, \- 
4 20 68 74 § 2 3 8 3 § 4 E \deleting Primary. \<0><0> 
5 0 2c 79 § $3 $8 69 72 2 $ ; 69 Beet 
9 72 61 6D 69 7 0 20 67 6€E 8 4 $2 6c ith 
20 79 72 61 6D 69 72 50 20 73 89 6 $2 bo08¢ C.AAD: .ASCII \ This Primary Section has now been entir\- 
6F 6 3 3 61 68 2 3 6F 69 74 6 5 BRO \ely Deleted. \<0><0><0> 
6C 6 2 69 74 6E€ 6 of 65 65 6 0 00A8 
00 00 00 20 2€ 64 65 74 6 of $e 44 3 79 Bape e 
69 72 50 20 67 6E& 69 74 g 3 65 20 00C4 C.AAE: .ASCII \ Resulting Primary Section \<0> 
00 20 6€ 6F 69 74 $3 65 8 79 if} @} 6D Bo 00e 
44 20 74 6€ 65 72 72 75 & 65 6 4 20 OOEO C.AAF: .ASCII \ The Current Definition is Empty. \<0><0> 
45 20 73 69 20 6E 6F 69 74 69 3 69 66 65 OOOEE 
00 9 20 sf 79 74 7 3 OOOFC 
69 72 50 20 67 6€ 69 74 of 73 $3 5 0 00104 C.AAG: .ASCII \ Resulting Primary Section \<0> 
00 20 6€ 6F 69 74 63 65 $8 79 3 1 6D 00112 
44 20 74 6€ 65 72 72 75 43 65 6 4 ef 00120 C.AAH: .ASCII \ The Current Definition is Empty. \<0><0> 
45 20 73 69 20 6€ 6F 69 74 69 of 69 66 6 0012E 
99 0 20 sf 74 70 6D 0013C 
66 20 74 6€ 65 72 6 $2 68 54 20 00144 C.AAI: .ASCII \ The current file organization is not In\- 
69 74 61 7A 69 6E 61 67 72 of 0 65 6C 69 Oo 128 \dexed. \<0> 
65 64 6€ 49 20 74 6F 6E 20 73 $2 e of of abe 
46 20 74 6€ 65 72 72 75 6 5 5 68 54 20 O9174 C.AAJ: .ASCII \ The current FDL Definition is empty. \- 
20 6€ 6F 69 74 69 6E 69 66 65 44 $3 4C 44 0182 <0><0> 
90 00 20 ef 79 74 70 6D 65 20 73 69 0190 
SF 65 74 65 6C 44 20 66 6F 20 $ 6—E 45 O19C C.AAK: .ASCII \End of Delete_Key_Indexed Script.\<0>- 
63 53 20 64 65 78 65 64 49 SF 79 65 & O1AA <0><0> 
0 99 3 4 i 9 7 3188 
77 20 74 70 69 72 6 6° 6 4 2 1C0 C.AAL: .ASCII \ This script will not delete the Primary\- 
65 74 65 GC 65 64 20 7% OF Q oc GC 69 O1CE \ Key. \<0><0> | 
48 20 79 72 61 6D 69 72 p zr fm ? HF} | 
00 00 00 20 67 é “ C bs £2 ti C.AAM: .ASCII \Deleting \<Octoete 
Con 00ss 43 0 5 0 4 48 O1FC C.AA mY 72,16,85,100,107,111 \38 144,149,157,162,- 
9000009 90095 9 90 0 8 6F Q 1 166,174,182, 186,194,202, 209 | 
sciences Senne 0 Q OD1 OOgCA o0¢3 0588 | 
45 50 59 56 SF 23 41 4D 4 2¢ C 44 eASCII <12>\PRIMARY_TYPE\ 
59 52 41 4D 49 52 50 SF 59 4D 40 44 4 2} eASCII = <14>\DUMMY_PRIMARYS\ 
53 53 45 43 43 41 4 eASCII <6>\ACCESS\ | 
4C 435 41 eASCIIT § <3>\ACL 
41 5) @& GF SF 53 49 53 59 4C 41 ; } 1 68 eASCI] <16>\ANALYSIS_OF __AREA\ 
48 SF 46 4F SF 53 49 53 59 4C 41 GE 41 af 027C eASCII <15>\ANALYSIS_OF KEY\ 


ee 


2 } 
EDFFUNCS Ib-Se -1984 17:14 VAX-11 Pascal V2.4-277 Page 44 | 
v04- Generated Code ~300n 138% Oh: 08 TP EKSUNGMASTER FEDF -SRCIEDFFUNCS.PAS<% 7028) | 
59 45 A 
41 45 $52 tk 4 f ASCII <4>\AREA\ 
54 43 45 & ef GF 4 7 eASCII <7>\CONNECT\ 
4 54 41 464 06 0299 eASCII <4>\DATE\ 
g 4 4¢ 49 46 5 OE eASCII <S>\FILESN\ 
4 of 45 44 49 ; AG eASCII <S>\IDENT\ 
4C 41 4E 5 2 4F GA AA eASCII <7>\JOURNAL\ 
3 t 4 ; 8 B2 eASCII <3>\KEY\ 
24 «44 2 4F 43 & Bé6 ASCII <7>\RECORDS\ 
47 4E & 2¢ 4) $3 7 O2BE eASCII <7>\SHARING\ 
4D 45 a g 002C6 eASCII <6>\SYSTEM\ 
8 45 4C 54 49 54 8 CD eASCII <S>\TITLE\<0> 
73 20 79 a 3 8 72 Ht ey 8 Ds C.AAO: .ASCII \ primary section. \<0><0><0> 
41 20 74 75 8 6€ 49 ; of 41 0 Es C.AAP: .ASCII \An Input Analysis File is necessary for \- 
69 20 65 6¢ $3 46 $9 69 73 Be F6 \Optimizing Keys.\ 
6F 66 20 79 § 61 73 65 «63 04 
4 0 67 6E 69 7A 69 6D 69 74 Boao 
7 9 6C 61 of 41 $0 65 68 54 0 C.AAQ: .ASCII \The Analysis File must contain ANALYSIS_\- 
63 20 74 73 6D 20 $3 6C 69 0032E \OF_KEY primary sections.\ 
49 53 59 4C 41 4E 41 0 6€ 69 0035C 
61 6D 69 Le: 70 20 59 45 8 5F 0034A 
Bae 4) 6F 69 74 63 65 00358 
6F 63 20 4C 43 44 20 65 68 54 60360 C.AAR: .ASCII \The DCL command ‘'ANALYZE/RMS_FILE/FDL"’ p\- 
45 SA 59 4C 41 ‘é 41 22 20 64 0 396 \roduces Analysis Files.\<0> 
22 4C 44 46 2F & rt! 49 38 SF O83 C 
6C 61 6€ 41 20 73 65 63 75 64 0038A 
00 3 3 65 6C 69 46 20 Ht 
79 65 48 SF 64 64 41 0 O3A0 C.AAS: .ASCII \ Add_Key\ 
65 48 SF 65 74 65 6C 65 44 0 td C.AAT: .ASCII \ Delete_Key\<0> 
64 65 Hh 65 64 oF 49 20 03B4 C.AAU: .ASCII \ Indexed\ 
61 69 74 6E 6 75 a, & Bs a ita C.AAV: .ASCII \ Sequential\<0> 
00 65 76 69 74 61 6C 65 52 20 003C8 C.AAW: .ASCII \ Relative\<0><0><0> 
00 65 7A 69 6D 69 74 70 4F $0 iter: C.AAX: .ASCII \ Optimize\<0><0><0> 
70 75 68 63 75 6F 54 20 QO3EO C.AAY: .ASCII \ Touchup\ 
20 74 70 69 72 63 53 20 00368 C.AAZ: ASCII \ Script \ 
00000 CREATE_NEW_FDL: ; 0159 | 
0000 siete -WORD “M<> 
SE FEFO CE 9 0002 MOVAB -272(SP),SP 
00000000G EF 00000000G EF 01 0000 CMPL DEF HEAD, DEF _TAIL : 0172) 
3 13 00012 BEQL +3 
0000vV 31 00014 BRwW $ 
0008 pope EF 4 Bib CLRB FILE_CREATED F gi? 
00000006 Fe F 1 PUSHAB CRLF ; 017 
2 bo ° PUSHL # 
000000006 FF fF PUSHAB PASSFV_OUTPUT 
00000000G_ EF 3 «CFB 4 CALLS #3,PASSWRITE_STRING 
000000006 cf OF PUSHAB SHIFT 
4 tg PUSHL #4 
00000000G_ EF F A PUSHAB PASSFV_OUTPUT 
00000000G_ EF ; 4 9 tty #3 -PASSURITE STRING 
7E 000 G EF ah 9 MOVZBL CONTROL_G,-(SP) 
Nanda Ff r 0 PUSHAB PASSFV_OufPUT | 
00000000G_ EF 3 CFB CALLS #3,PASSWRITE_CHAR 
000000006 EF 9F D PUSHAB ANSI_REVERSE | 


5 | 
EDFFUNCS 1§-5e -1984 2:17:14 VAX-11 Pascal V2.4-277 Page 45. 
704-000 Generated Code Eee tees ets Peeks ake tea’ Pete caczeprruncs.Pases"¢28s | 
04 po 63 PUSHL #4 
000000006 Ff F PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB 6 CALLS #3,PASSWRITE_STRING 
FFFFFB9B EE 9F 000 PUSHAB C.AAA 
2 pp 7 PUSHL #50 
000000006 FF F QOO7A PUSHAB PASS$FV_OUTPUT | 
000000006 EF 3 FB 0 CALLS #3,PASSWRITE_STRING 
000000006 FF OF PUSHAB ANSI_RESET 
4 pp 008D PUSHL #4 
000000006 EF 9F O00BF PUSHAB PASS$FV_OUTPUT 
000000006 EF 5 EB 95 CALLS #3,PASSWRI °E_STRING 
000000006 F 0009 PUSHAB PASS$FV_OUTPUT 
000000006 EF ootdy ‘8 0A CALLS #'| ,PASSWRITELN2 
000000006 EF 600000006 ja 7 Beas 2s: nove " 4 .STRING RES_OUTPUT_F ILENAME_DESC : att 
000000006 EF o1 FB ite CALLS #1,PASS$NEW2 
00000004G_ EF 0 00 0004 VL RO RES OUTPUT FILENAME DESC+4 
00000000G_ EF FF OF 38 00C8 MOVZ2BW #255, RES_OUTPOT_FILENAME_DESC : 0189 
000000006 EF 01 0 "nm 6 9000 SV #0, #1 7FLAGS + 0190 
000000006 ‘EF 01 4 00 £0 9006 SV #084. #1 FLAGS + 0191 
000000006 EF 9F QO0E PUSHAB S : 0193) 
FO AD 9F OO0EB PUSHAB FID_BLOCK 
000000006 EF 9F OOODEE PUSHAB RES~OUTPUT_FILENAME DESC 
00000000G EF 9F OO00F4 PUSHAB DEFAULT_FICENAME_DESC 
900000006 EF 9F OOOFA PUSHAB OUTPUT_FILENAME_DESC 
00000006 EF 9F 00100 PUSHAB NL_DEV~DESC 
000000006 EF 6 FB 0106 CALLS #6-FDLSCREATE 
000000006 _ ‘EF 50 00 001 MOVL RO, ISTATUS 
03 000000006 EF iF 90114 BLBS I {ATUS, .+3 : 0202 
000000006 EF 94 OO11E CLRB  - DEST_IS_TERMINAL : 0209 
50 01 00 00124 MOVL #1,R0 3 0215 
51 50 D0 00127 4$: MOVL RO. 
51 000000006 EF 10 00 ED 01 A CMPLV #0.#16,RES_OUTPUT_F ILENAME_DESC, 1 : 0217 
FEFO CD41 20 90 01 5 MOVB #32, TEMP_STRING255~1(1) : 0219 
Ov 11 00138 BRB 7$ 
5C 000000046 EF 00 00130 6S: MOVL § RES_OUTPUT_FILENAME_DESC+4,R1 : 0223 
FEFO CD41 FF AC41 a! 0144 MOVE -1(R12)CI]7TEMP_STRING255~1L1 
D3 50 OOOOOOFF BF £3 0014C 7S: AOBLEQ #255,R0,4$ 
00v000000006_ EF 00 £0 0154 BBS #0, AUTO. TUNE ,9$ ; 0230 
000000FC 8F dD 001 PUSHL #252 : 02 
07 DD O16 PUSHL # 
4 DD 0016 PUSHL #4 
000000006 EF 9F 0166 PUSHAB SYSSOUTPUT_NAME 
DD 0016C PUSHL #11 
_ 01 dD Oige PUSHL #1 
000000006 FF F 001 PUSHAB FDL DEST 
000000006 7 FB 00176 CALLS #7,PASSOPEN2 
000000006 EF 9F 170 PUSHAB FDL_DEST : 0235 
0000006 EF 1 Fe 1 CALLS #1,PAS CLOSE? 
00v00000000G_ EF E1 OO18A 98: BBC : ORG, 11$ : 0242, 
000000006 _ ‘EF ‘ FB 192 CALLS #0. SHUFFLE_AREAS > 0244 
pp 199 11$:  PUSHL > 0249 
Fer cD F 00198 PUSHAB TEMP _STRING255 
QOOOOOFF 8F DD 0019F PUSHL #255 


d 2 
EDFFUNCS 16-Sep-1984 01:17:14 VAK-11 Pascal V2.4-277 Page 46. 
VOu-000 Generated Code Br8Sb-138s 15:57:08 — DISKSUMSMASTERS EEDF-SRCJEDFFUNCS.PAS<]"¢285°, 
01 DD OO1A PUSHL #1 
000000006 Fe P 143 PUSHAB FDL DEST 
000000006 EF 5 FB OO1AD CALLS #5 ,PASSOPENZ | 
000000006 EF 9F 001B4 PUSHAB FDL_DEST : 0250 
900000006 EF 1 FB OO1BA CALLS #1, PASSREWRITE2 
00000006 EF 0 FB 0v1C1 CALLS #0,GENERATE_FDL : 0255 
000000006 EF 9F 001C8 PUSHAB FDL_DEST + 0260 
000000006 EF 1 £B O0IcE CALLS #1,PASSCLOSE2 | 
000000006. EF 1 90 001D MOVB #1,FI/.E_CREATED : 0265 
04 001DC 13$: —- RET : 0275 | 
; Routine Size: 477 bytes, Routine Base: SCODE + 003F0 
90000 ADD_FDL_LINE: : 0323 
003¢ 9000 SWORD “M<R2,R3,R4,R5> 
5E 80 AE 9€E 0000 MOVAB -128(§P).SP 
D1 AD 000000006 EF 7D 00006 MOVQ = NULL_STRING, SAVE+17 ; 0335 
00000011G EF 000000006 EF 7D 000g MOVO $$ NULL~STRING, TEST+17 : 0336 
000000006 EF 1 90 0001 MOVB #1,FOLL_CHOICE : 0338 
00000047 BF DF 00020 PUSHAL #71 : 0339 
000000006 EF 1 FB 0026 CALLS #1,QUERY 
000000006 EF 1 9 90 D MOVE #1,FULL_CHOICE : 0341 
900000006 EF 0 EB 034 CALLS #0.ASK TEST SECONDARY + 0342 
CO Ad 000000006 EF 0040 8F 28 00038 MOVC3 #64, TEST, SAVE + 0344 
OOO000FC 8F dD 90046 PUSHL #252 > 0349 | 
07 DD 0004C PUSHL 
04 ODD O04 PUSHL #4 
000000006 EF  9F 0005 PUSHAB SYSSOUTPUT_NAME 
0B DD 00056 PUSHL #11 
01 Dd 00058 PUSHL 
000000006 EF 9F O005A PUSHAB FDL_DEST 
000000006 7 €B 9060 CALLS #7,PASSOPEN2 
000000006 EF  9F 0006 PUSHAB FDL : 0350 
000000006 € 1 FB 0006D CALLS #1. PASSREWRITE2 
00000040 8F DD 00074 PUSHL # : 0352 
000000006 EF 01 FB 007A CALLS #1,PASSNEW2 
C 50 0 00081 MOVL. RO.DEF TEST 
6C 000000006 EF 0040 BF 28 00084 MOVC3 #64, TEST, (DEF_TEST) > 0353 
01 AC D4 O08E CLRL —- 1 (DE F_ TEST) > 0354 
05 AC D4 0009 CLRL  S(DEF"TEST) : 0355 
52 000000006 + d8 0094 MOVL DEF _CORRENT,SAVE_CURRENT : 0356 
000000006 EF c 009 MOVL DEF TEST. DEF CURRENT ; 0357 
00006 EF " ‘ 4 B08 CALS) 4 SHOW_CUR_PRI_SEC ew 
itdaitdaitg EF 2 50 BA MOVL § SAVE_CURRENT,DEF_CURRENT : 0361 
€ DD 000B PUSH DEF TEST : 0362 
000000006 EF 1 FB 000B CALLS #1,PASSDISPOSE2 
000000006 EF 9F 00 SHAB FpL DEST : 0364 
000000006 EF 1 £8 0 C CALLS #1,PASS$CLOSE2 
DF AD 9F 000C SHAB SAVE+31 > 0366 
DE AD 9F O00CC PUSHAB SAVE+ 
DA AD 9F OOOCE SHAB SAVE+ 
D9 AD OOF PUSHAB SAVE+ 
000000006 EF sod 03 4 CALS 3OYF ino JECT 
ov ; £8 F BLBC Ex{sts,38. : 0369 
00000019 BF ODF 000E2 PUSHAL @# > 0371 
| 
| 
| 
: io 


oe F 7 
2 
EDFFUNCS if- Sep-19 7:16 VAX-11 Pascal V2. Page 47 
Oa-000 Generated Code Sep- 1984 93 $5) 08 DISKSVMSMAS TER: Pepe ch SRCJEDFFUNCS. PAS: 1°(28) | 
000000006 EF a f E8 CALLS #1 QUERY 
50 [ce Fl 3$: MOVB #1,PROCEED ; 0375 
: F4 4$: BLBS §§ PROCEED,.+3 : 0377 
0000v 31 000F7 BRW 21$ 
000000006 EF AD 0040 8F é FA MOVC3 #64,SAVE,TEST : 0381 
00000006 EF 0 F 105 CALLS #0,ASK Feces SECONDARY _ VALUE : 0385 
00000006 EF FB 001 ; CALLS #0.MAKE SCRATCH : 385 
80 AD 000000006 gf 11 MOVL DE -SCRATCH -128(FP) ; 0387 
80 8D 000000 F 4 F 118 MOVC3 #647TEST, @-128(FP) 
0 0000 0006 EF p 126 MOVL DEF s¢ fe RO : 0389 
OF 1 AQ 1 00120 CMPB é (RO) #1 
00v if} 131 BNEQ 4 
50 000000006 EF po ; MOVE DEF SCRATCH,RO : 0391 
Soy 11 0913¢ BRB 8% 
50 000000006 EF p90 001 ; 7$ MOVL  DEF_SCRATCH,RO : 0395 
60 1 90 0014 MOVE #1, TRO) 
00000000 8F OF 00148 8$ PUSHAL #0 : 0399 
000000006 EF 1 FB O14E CALLS. #1 INSERT IN_ORDER 
OF 000000196 i 1 ab13¢ CMPB TegT#25 44 | : 0401 
0000v if tee BRW 30 
000000006 EF 000000006 EF pO 00161 MOVE DEF AHEAD DEF. CURRENT F 9408 
50 000000006 EF 00 O1Ge 10$: MOVL DEF_CORRENT,RO + 0413 
DA AD 1A AO D1 001 CMPL 26(RO), SAVE426 
0Ov 12 0017A BNEQ 14$ 
50 000000006 EF p a185 MOVE DEF cu URRENT,RO 
00v 1 01 BNEQ 14$ 
50 000000006 EF 00 00187 MOVL DEF CURRENT,R 
09 AD 19 AO 91 it CMPB (RO) , SAVE+2 
0v 12 9019 BNEQ 14$ 
SC 1 90 00195 MOVB #1, FOUND_PRI : 0421 
00v 11 00198 BRB 15$ 
00000000G_ EF 90 fF O19A 14$: CALLS #0, INCR_CURRENT 3 0425 
0ov C €8 0O1A1 15$:  BLBS FOUND PRI,17$ 
000000006 EF p O1A4 st DEF CORRENT 
00v é f 1AC 17$:  BLBS  FOWND_PRI,20$ : 0429 
000000006 EF 94 OO1AF CLRB ss TEST > 0433 
S08IRE Fk a GB ani | RND SNECRE-TESTSE Bas 
000 1 EF 3 its CLRB ss TESST+ = : 04 
OOO1FG EF ps 1c8 CLRL —~ TEST+#31 : 0437 
00000116 EF G EF 7D 0010 MOVG = NULL_STRING, TEST+17 : 0438 
00000096 EF 000 G EF 7D 1p¢ va LL7STRING, TEST#9 + 0439 
00000006 _ EF .. 2 1€ CALLS #0,MAKE SCRATCH > 0441 
AD 000000006 EF 1E VL_ DEF_SCRATCH,-128(FP) > 0443 
80 BD 00000000G EF 4 F 1F VC3. #647 TEST, a-128(FP) 
0000000 F ODF PUSHAL 4 2 0445 | 
000000006 EF 1 FB 7 CALLS  INSERT_IN_ORDER 
000000006 EF estentes f 4 f - cAtse 8 ; CLEAR on 
000000006 Ff 9 00¢18 BUSHAB SHIFT ; 0453 
4 0D < PUSHL #4 


sues 


00000000G_ EF 


3; Routine Size: 795 bytes, 


F 
"S483 
Generated Code 
00000000G EF 9F 
00000000G_ EF Os bb ) 
7E 000G EF A 
Soooooeg EE oF 
00000000G_ EF ; 4 zi 
7E 444 4g EF Br 28 
00000006 FF oF GF 
00000000G_ EF 3 «6FB 2? 
000000006 Ff 44 ; 
000000006 Fe BP 4 
00000000G_ EF 3 «FB 8 oA 
FFFFF7FO Fe 44 5 al 
000000006 Ff oF 0279 
G0000000G_ EF 3 ©6FB 0027F 
000000006 Ff 44 3 a6 
00000000G EF 9F 00 
00000000G_ EF 65 FB 00 5 
000000006 FF +4 5 H 
000000006 Fe 9F 002A3 
00000000G_ EF 3 «CFB bp A9 
000000006 ff 9F 00280 
00000000G_ EF 1 FB 002B6 
0O00000F C 44 ee 89 C3 
6 DD 002C 
000000006 e +4 5 +f 
01 OD O02CF 
00000000G EF 9F 00201 
00000000G_ EF 7 ~=§B 00207 
00000000G EF 9F OO2DE 
00000000G_ EF C0 a fe ; : 
00000000G_ EF 01 FB 00 FE 
00000000G EF 9F OO2F 
00000000G_ EF 1 4 8 fe 
CO =6AD Bono , 2 0 
0000001F FOF 8 99 
00000000G_ EF 1 ae bo i 


Routine Base: SCODE + 005CD 


0009 8 Q 

00000000G EF 000000006 O8 ‘ 
00 dv ; 

2 


00000000G_ EF 099000006 cf 3s 
00000019G_ EF G EF 0 


sa 


=1984 13:57: 


aon 


218: M 


be VAX=-11 Pas oh Vestee 
8 D1SKSVMSMAS TER: CEDF. SRCIEDFFUNCS. PAS 


PASSFV_OUTPUT 
a" eae ~STRING 


Passry 
aR ei _CHAR 


SP) 
pastry 

#3 PASSURLTE, _CHAR 
ANSI_REVERSE™ 

Se ssry OUTPUT 

3 PASSURITE_ STRING 


#27 
PASSFV_OUTPUT 
#5 PASSWRITE. STRING 


PASSFV 
if “PASSURITE. STRING 


i 
PASStY OUTPUT 
5 PASSURITE STRING 
tt UTPUT 
Mason TELN2 


i 


ry 
SYSSOUTPUT_NAME 
#11 


#1 

FDL_DEST 

WC PASSOPEN2 

FDL_DEST 

#1 PASSREWRITE2 

#1, SHOW_PRIMARY_SECTION 
pt_ DES 

Hi PASSCLOSE2 
as, SAVE, TEST 

#1, QUERY 


“M<> 
DEF _HEAD, DEF _TAIL 


i2 
DEF HEAD .DEF CURRENT 
DEF AULT_PRIMARY, TEST+25 


Page 48 
31 (28) 


— 


<m 


=a 


a SP 


EDFFUNCS 1 4 01:17:14 VAX-11 Pascal V2.4-277 Page 49 
V 808 Generated Code ~300n 1382 eae DISKSVMSMASTER: FED e SRCJEDFFUNCS.PAS@1 "C285 | 


0000001AG EF 000000006 2 3 MOVE DEFAULT PRIN, ,TEST+26 : a8) 
00 F OOF B 2%: PUSHAB #0 : 0536 
000000006 EF 9F E PUSHAB TEST 
000000006 Soy g re 4 CALLS i: RRENT_EQ_TEST | 
C i 56 3 OVE #1,FOUND_PRIMARY : 0538 
000000006 EF 0 F 2 4$ CALLS #0,INCR CURRENT : 0542 
000000006 a p 0 3, 5$ st F_CURRENT 
v6 .; & Oee BLBC — FOUND_PRIMARY,2$ 
V re § 7$ BLBS FOUND: epRIMARY 2$ ; 0546 
000000006 EF 990000006 EF OD 0068 MOVL DEF Fa GYRRENT + 055 
6 00000006 EF pd 0075 MOVE Der CURR genet + 0555 
abv 12 ie BNEQ i 
000000006 EF 0 FB 9080 CALLS # INCR, CURRENT : 0557 
0 000000006 EF 2 087 10$:  MOVL Ef CUR RENT ,RO 0562 
000000006 _ EF 19 AO 90 O008E MOVB (RO) ,DEFAULT_PRIMARY 
0 000000006 EF 00 00096 MOVL DEF_CURRENT, : 0563 
000000006 EF 1A AO D0 0009D MOVL § 26(RO) ,DEFAULT_PRINUM 
000000006 EF 000000006 EF 00 Gogas MOVL § DEFAULT_PRINUM; INPUT_NUMBER : 0564 
04 00080 12$: RET ; 0570 
; Routine Size: 177 bytes, Routine Base: SCODE + 008E8 
0000 DELETE_FDL_LINE: ; 0627 | 
003¢ 00000 ,WORD “M<R2,R3,R4,R5> 
5E CO AE  9E 00002 MOVAB ~64( 
000000006 EF 000000006 cf p| 9006 cHPL DEF HEAD, DEF _TAIL : 0642 
0000v 34 0013 RW 568 
D1 AD 000000006 EF 70 90016 MOVa L_STRING, SAVE+17 > 064 
000000116 EF 000000006 FF 7D 00 3 MOVa Nut t “STRING Tests17 > 064 
O8E8 0 FB 000 CALLS #0,CRECK_DEFAULT : 0649 
99 000006 EF 94 0002E CLRB FULL CH HOTCE > 0655 
0004 F DF 00034 PUSHAL @# + 0656 
000000006 1 FB 0 A CALLS #1, QUER 
¢ 9 1 CLRB NO MORE PR : 0658 
000000006 EF 94 00043 CLRB FUCL oC CHOICE : 0660 
000000006 EF 60 EB 0049 CALLS #0,ASK TEST SECONDARY > 0661 
CO AD 000000006 EF 40. BF i 0 20 moves woh ST, AVE : 0666 
8 8 16G EF 9F | PUSHAB TEST+30 ; 
1AG EF i 7 PUSHAB TEST+ 6 
19G EF 9F PUSHAB TEST+ 
sooooooce er 00000008 FE Fr OO AUSMAB IES 
000000F ¢ | DD 0 PUSHL ‘ > Sites : 0676 
4 BD SHL #4 
000000006 if Hi A PUSHAB SYSSOUTPUT NAME 
coerce Ed eH He | 
000000006 EF 6S FB A CALLS WC PASSOPENZ | 


<m 


H 2 
EDFFUNCS 16-Sep-1984 01:17:14  VAX-11 Pascal V2.4-277 Page 50| 
tee tits Generated Code =300 138% OL yeh PPK DUNSAASTER EEDF-GRCIJEDFFUNCS.PASS? "C283 


000000006 EF  9F 000A1 PUSHAB FDL_DEST : 0677 
000000006 EF “ ; £8 Ni CALLS #1 PASSREWRITEZ owe 
000000006 EF 1 £8 f CALLS #1,SHOW_CUR_PRI_SEC : 
000000006 EF 9F 00088 PUSHAB FDL DES : 0681 
covnneniee >: 0000001F : bf ef BUgHAL a ae 0683 
$33888888. tS ee cae , 8s 
br 000000196 EF of 0 p CMPB TegTs25,075 + 0687 
0000v ¢ OE BRW 355 
4 OO0E CLRB  =- REMAINING_PRI + 0694 
4 OO0E CLRB REMAINING SEC > 0695 
000000006 ff 000000006 EF 00 O00E9 MOVL DEF HEAD ,DEF_ CURRENT : 0697 
0 000000006 EF 00 OOF4 5$: MOVL _—iODEF CURRENT - RO + 0701 
DA AD 1A AQ D1 OOF cMPL g(r ), SAVE+26 
50 000000006 EF 06 0108 MOVL p F CURRENT - RO 
D9 = AD 19 AQ 91 10 CPS &R ), SAVE+2 
50 000000006 EF 06 O11 MOVL DEF _CURRENT,RO : 0709 
60 95 0011 TSTB —s-_- (ROY 
00v 12 90119 BNEQ 9$ 
52 01 90 00118 MOVB  #1,REMAINING PRI : 0713 
54 000000006 EF 00 OO11E MOVL Def CURRENT ,DEF_REM_PRI : 0714 
00v 11 001 BRB 13$ 
50 000000006 EF 00 00127 9S: MOVL DEF CURRENT ,RO : 0718 
: iby 12 Soi Sek eH 
53 01 48 0133 MOVB #1,REMAINING. SEC : 0720 
000000006 EF 0 FB 0136 13$: CALLS #0,INCR CURRENT + 0724 
00v 3 E9 00130 BLBC REMAINING_PRI,15$ 
00v E 9140 BLBS § REMAINING SEC. 16$ 
000000006 EF 05 00143 158:  TSTL DEF _CURRER 
AQ O149 BNE 
03 5 § 148 16$:  BLBS  REMAINING_PRI,.+3 : 0728 
009 v 31 Olde BRW 
03 9 001 BLBC REMAINING_SEC,.+3 
0000v 31 00154 BRW 19$ 
000000006 ef F 00157 PUSHAB CRLF : 0736 
2 pp 150 PUSHL #2 
000000006 ai F 0015F PUSHAB PASSFV_OUTPUT 
000000006 EF seal f fe 18 CALLS #5 PASSURITE_STRING 
4 DD 001 3 PUSHL 
000000006 FF BP 0017 PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB OOI7A CALLS #3,PASSWRITE_STRING 
000000006 Ff 9 } PUSHAB ANSI REVERSE 
000000006 FF oF 189 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O0018F CALLS #3,PASSWRITE_STRING 
FFFFFSIB FF Bb 0019¢ CUSHAB  ¢ AAC 
000000006 FF BF 19¢ PUSHAB PASStY OUTPUT 
000000006 EF 3 FB OOIA CALLS #3,PASSWRITE_STRING 
000000006 EF 9F OO1AB PUSHAB ANSI_RESET 


acm 


} 
| 
Page 51 
-277 ;1- (28) 
Gon $08 DISkSUMSMASTER*EEDF-SRCIEDFFUNCS. PAST! | 
e DIS 
Mesto} dhs | 
d Code SHL 
ca mec Bw aH AR sm 10 
V 000000006 FF FB 001B PUSHAB A ty2 NT é ori 
0006 EF F 9F O0IC CALLS re ER-PRI-DEF_CURRE : 0742 
ponre F tate 1 fe if8 rte #0 DELETE CURR RERT ; OFa4 
0 GE 4 104 C #1,NO_MOR 
sseaante EF 1 #0 1F ate #1 ,LiBswalT ; 0748 
00004140 ‘ re ied Bau EMAINING. PRI, 22 
000000006 _ EF 00 4 rs ite 19$: Hat Remain NINGSEC,. ; 0756 
iF $ +3 
3. oosov $1 oorr4 28: LBC —_-REMAINING_PRI, 
59 1F7 228: BRW MAINING_SEC,.+3 ; 0764 
03 0oogv 31 OOFA ww Ue 
03 0000v i 8389 PUSHAB CRLF 
0006 FF OF BNeRs PUSHAB PASSFY. OUTPUT G 
00000 fe BD 0020 CALLS. #3 PASSURITE. STRIN 
000000006 FF PF Bice BUSHAB SHIFT 
0218 rt 
earetcpng ea FF oD ogi PUSHAB #3 PaSSURITE. _STRING 
CAL $1 REVERSE” 
eeeeeseaeh tan: E* 53>} PUSHAB ANSI 
0 a 
000000006 EF A cf op 3 ; PUSHAB PASSE OUTPUT _STRING 
CAL Ph 
000000006 EF 9F 00 ; PUSHAB C_AAD 
024 HL #53 
000000006 EF EE op 09 4 pUSnia Pp rasPASSunT TE. “STRING 
000000006 EF 9F OO24A PUSHAB ANSI-RESET 
7 rr 
meres anes fH Pune FASSEVSOUTEUT 
oooo00s FF Me 6 5 PUShAB PASSRY OUTPUT : Ores 
eeopogoe ¢, 000000006 FF 13 nove, HO WORE, 
000000006 EF 1 90 , CAS, #1 CiBSWAIT : 0773 
* 00006100 re i any INING_PRI,.+3 
000000G_ EF 0000v 3 C 258: BLBS REBA > 
00 at BE Basee BLES RERAINING_SEC,.+3 ; 0781 
00 318 
Rw ; 0785 
oa ae 
00000003 BF OF Hi PUSHAB SuIF T | 
OO0000006 EF a nnnne 6 pp AD PUSHAB #3 SPASSURI TE. STRING 
000000006 os FB 00385 BUSHL $P) | 
000000006 EF > O0¢8 PUSHAB PASSFY OUTPUT | 
© Soooo0006 EF 


<m 


2 | 
EDFFUNCS Ibe§ 7: VAX-11 Pascal V2.4=-277 Page 52 
tae tid Generated Code - 4 =138% 94: 3 ‘hg ST ERSUNGRASTER PEGE -GeCJEDFFUNCS.PASe? C285 
000000006 EF 05 FB 002C CALLS #3 ,PASSWRITE_CHAR 
7E 999000006 FF e, 5 mOvreL of TAB, =(SP 
G EF 9F 002d USHAB PAS$FV_OUTPUT 
ere 000000006 oS oP 26 SUsHaB ea tt a | 
soooo000g of PROSE | PUR Be | 
000000006 EF 5S FB FE CALLS #3 HAE WRITE_STRING 
‘dicinent Bp Af PUSH ae | 
000000006 EF F p PUSHAB OUTPUT 
000000006 EF 5S FB 3 CALLS a “PASSURITE _STRING 
000000006 Ff ar 10 PUSHAB ANSI_ 
000000006 FF P ig PUSHAB Si ssry OUTPUT 
000000006 EF 3 FB 00 3 CALLS 3 PASSWRITE _STRING 
000000006 Fe 9F 00 PUSHAB 
000000006 é oP 8 5 PUSHAB ae OUTPUT 
000000006 EF 5S FB 00 3 CALLS #3,PASSWRITE_STRING 
000000006 EF 9F OO33A PUSHAB PASSFV_OUTPUT 
000000006 EF aeaeeal 01 FB 40 CALLS ge aloes ne 
07 DD D PUSHL @# ; 
4 DD OO34F PUSHL #4 
000000006 ef oF 0351 PUSHAB SYSSOUTPUT_NAME 
B 0D 00357 PUSHL #11 
000000006 F BP 60 4 PUSHAB FDL_DEST 
000000006 EF 7 €B 0086 CALLS +P CPASSOPEN2 
000000006 EF 9F 00368 PUSHAB FDL_D : 0789 
000000006 EF - o1 fe : : CALLS #1 BASSREWRITE2 aia 
aantentens® se 000000006 g oP 8 SUHAB wee ee 0793 
900000006 EF 1 FB 00 85 CALLS #1,PASS$CLOSE2 ; 
00000019G EF D9 AD 90 0038C 31$: MOVE SAVE+25, TEST+25 : 0797 
0000001AG_ EF DA AD 09 0394 MOVL SAVE g-TESTEe : 0798 
00v tr 9 9C LBS No MORE PRI, 35$ + 0800 
000000006 _ EF sess ‘ PE Hi CALS of" euene 5 vane 
boy ia AC 358: BRB 37§ 
000000006 f AE és: PUSHAB § SHIFT ; 0812 
000000006 EF 9F 00386 BUSHAB PASSFY_OUTPUT | 
000000006 EF 5S FB 0038 CALLS #3 PASSURITE _STRING 
000000006 cf eb c PUSHAB ANSI_REVERSE™ | 
000000006 EF 9F 3 PUSHAB i ssey 
F F CALLS #3 HA _STRING | 
seevecess 6 FFFF F369 05 oe 8 PUSHAB C.AAF 
000000006 i 4 ep PUSHAB PASSFV_OUTPUT | 
000000006 EF 3 FB OO3E CALLS #3,PASSWRITE_STRING | 
000000006 Ff Hi ED PUSHAB ANSI RESET | 
| 
| 
| 


am 


SE — == 


K 
EDFFUNCS 4 VAX=-11 Pascal V2.4-277 Page 53 
teats senerated Code g-ge0 p71 882 94: ihe DISKSVMSM. ob nV Febr SacJEDFFUNCS.PAS 4 "C283 
000000006 EF 9F 003F5 PUSHAB PASStY OUTPUT | 
000000006 EF FB if CALLS 5 PASSURITE STRING 
000000006 EF 9F 004 PUSHAB PASSE | 
000000006 EF FB 004 CALLS PA MOOT TELN2 | 
00004140 8F DF 0040F PUSHAF : 0815) 
000000006 EF 1 FB 00415 CALLS nH ,LIBSWAIT | 
04 0041C 37$: = RET : 0819 
; Routine Size: 1053 bytes, Routine Base: $CODE + 00999 
0000 MODIFY_FDL_LINE: : 0868 
003¢ 0 - WORD  “M<R2,R3,R4,R5> 
5E 80 AE t MOVAB -128(§P):SP 
000000006 EF 000000006 EF oD 6 CMPL DEF _HEAD, DEF _TAIL : 0879 
3 1 1 BNEQ +37 
0000v 0013 BRW ? 
D1 AD 99000006 EF 7D 00016 MOV § NULL_STRING,SAVE+17 : 0883 
C9 AD 999 0 0G EF 7D OOO1E MOV = NULL“STRING, SAVE+9 + 0884 
00000011G EF 00 00006 EF 7D 00 6 MOVQ = NULL“STRING, TEST+17 + 0885 
000000096 EF 000000006 FF 7D 00031 MOVQ § NULL “STRING, TEST? : 0886 
O8E8 CF 0 8 00 ¢ CALLS #0,CRECK DEFAULT : 088 
990000006 EF 94 00041 CLRB FULL CHOTCE + 0894 
000004 F DF 00047 PUSHAL # + 0895 
000000006 EF 01 FB 00040 ALLS #1,QUERY 
000000006 EF 94 00054 CLRB ss FULL_CHOICE : 0897 
000000006 0 FB 0005A CALLS #0, ASK_TEST_SECONDARY 0898 
OOO001FG EF  9F 00061 PUSHAB Test s3t 0900 
GOOOOIEG EF  9F 00067 PUSHAB TEST+30 
00 00 1AG EF 9F 006 PUSHAB TEST+26 
0 196 EF 3 00 PUSHAB TEST+ 
00000006 FE F 0007 PUSHAB TEST 
000000006 EF 5 FB 0007F CALLS #5,FIND_OBJECT 
0 000099006 F DO 00086 OVL. DEF_CURRENT,RO : 0905 
CO AD 004 , § 908D MOVC3 #647(RO), SAVE 
QO0000FC 8F DD 00094 PUSHL Hose : 0910 
7 oD 009A PUSHL # 
04 BD 09¢ PUSHL #4 
000000006 EF 9F OO9E PUSHAB SYSSOUTPUT_NAME 
B DD OO0A4 PUSHL ai 
1 OD Ong PUSHL 
000000006 EF 9F 000A PUSHAB iio 
000000006 ,: #8 OAE CALLS PRESOPEN2 
000000006 EF 9F PUSHAB DEST : 0911 
000000006 EF 1 §B CALLS Ay  BRSSREWRITE2 
01 8F 9F 000C PUSHAB #1 : 0913 | 
000000006 EF 1 §B 000¢ CALLS #1,SHOW_CUR_PRI_SEC 
000000006 EF  9F 000C PUSHAB FDL DES : 0915 
000000006 EF 1 EB CALLS #1, PAS CLOSE? 
00000000G_ EF AD 0040 BF 2 movC ‘ 4 SAVE, TEST : 0917 
990000 G EF 9 FB 4 CALLS “ASK Test SECONDARY_VALUE + 0919 
G EF F Eg CALLS MAKES CRATCH : 0921 
AD 000000006 i p F MOVL ‘th SC ATCH, -128(FP) + 0923 
80 BD 00000000G EF 4 F FA MOVC3 4cTESTs {28(FP) 
0 0000 0 G EF 105 MOVL iq mia) tik : 0925 
F AQ 1 CMPB 
00v : 1 BNEQ 
50 000000006 EF 00 0011 MOVL + _SCRATCH,RO : 0927 


— 


7] 
2 
EDFFUNCS Sep-1984 VAX=11 l v2. 
aL 000 Generated Code if- gep-19 4 9}: 5: bs Ds SKSV nga TER: Bete eh SRCJEDFFUNCS. PAS. 79 €o8}" 
SS aoe ge gD 
50 000000006 EF p9 11D 4$ MOVL DEF SCRATCH, RO : 0931 
é 1 124 MOVE #1,TRO) 
00000000 8F ODF 00107 5$ PUSHAL # : 0933 
000000006 EF 1 FB 00120 CALLS #1,INSERT_IN_ORDER 
00000003 BF DF 00134 PUSHAL # : 0935 
000000006 EF 1 FB O013A CALLS #1,CLEAR 
000000006 Ff F 14) PUSHAB sHiFT : 0937 
000000006 EF oF 0149 PUSHAB PASS$FV_OUTPUT 
000000006 EF ; 6 N36 CALLS 43, ype _STRING 
7E 00 0G EF 9A a8 MOVZBL 
atddittdts F OF 0015F PUSHAB TA =(s 
000000006 EF 3 «FB 0165 CALLS as, fase _CHAR 
7E 000000006 FF BR O1ee MOVIBL AB SP) 
titdittdt a OF 5198 PUSHAB bacéry 
000000006 EF 3 «FB 0017 CALLS #3 PASSURLTE, _CHAR 
000000006 cf oF 0183 PUSHAB ANSI_REVERSE™ 
000000006 FF P 018A PUSHAB PAS$FV_OUTPUT 
000000006 EF 3 FB 9190 CALLS #3,PASSWRITE_STRING 
pever rie. Ue oan melee FUSHAB CAG 
000000006 EF oF Bo19F PUSHAB PAS$FV_OUTP 
000000006 EF 03 «FB OO1A5 CALLS #3 PASSUNITE, _STRING 
000000006 i oF DIAC PUSHAB ANSI RE RESET 
900000006 EF oF 01B4 PUSHAB PASS$FV_OUTP 
000000006 EF 3 FB O1BA CALLS 3. "PASSURITE, STRING 
000000006 fb bb Ore? PUSH. fon 
000000006 EF 9F O9ie9 PUSHAB PASS$FV_OUTPUT 
000000006 EF 03 FB OOICF CALLS #3 PASSURITE STRING 
000000006 EF 9F 0106 PUSHAB PASSE 
000000006 EF 1 FB Ipc CALLS tA SSURI TELN2 
O00000FC BF dD OOTE PUSHL age : 0941 
7 DD 001E9 PUSHL &# 
000000006 ' 4 tht PUSHAB SYSSOUTPUT NAME 
op DD th PUSHL #11 . 
pp iF PUSHL 4 
000000006 FF F OO1F PUSHAB pL DEST 
000000006 EF 7 €B OO1FD CALLS #7, PASSOPEN2 
000000006 FF OF 04 PUSHAB FDL_DEST 5 0942 
000000006 EF 1 FB A CALLS #1  BASSREWRITE2 
CO AD 9F 00211 PUSHAB SAVE > 0944 
000000006 EF 01 FB 00214 CALLS #1,SHOW_PRIMARY_SECTION 
ooo00000g er 0000S FF PE Oasae PUSHAD FOC DEST ceo Aataee 
000000006: EF 08 AD oo00nei? f 28 moves it. »SAVE, TEST ; 348 
000000006 EF 1 Fe CALLS QUERY ‘ 
Ov 1 40 BRB 
000000006 EF 9F 00242 7$ PUSHAB SHIFT : 0958 


H 2 | 
EDFFUNCS 16-Sep-1984 01:17:14  VAX-11 Bascal V2.4-277 55. 
rive tid Generated Code g7508- 138% OL dee he DIS Sr SVMGH STER: Veet? SRCJEDFFUNCS.PAS; P90 +83 
04 DD 00248 PUSHL 
000000006 Ff BF 4A PUSHAB PAssty OUTPUT 
000000006 EF seseenees FB : CALLS | fe tat STRING 
4 DD D PUSHL #4 
000000006 Ff P F PUSHAS PASS$FV_OUTP 
000000006 EF sinanaes tf FB e CALLS | #3 PASSURITE, STRING | 
2 dd 00 PUSHL @# 
000000006 ai SF 74 PUSHAB PASSE OUTPUT 
000000006 EF 3 FB OO27A CALLS 3 PASSURLTE, STRING 
000000006 Ff F 8 PUSHAB ANSTRE ESET 
000000006 FF BF 0 89 PUSHAB PASSFV_OUTPUT 
000000006 EF 3 FB O028F CALLS #3 PASSURITE STRING 
000000006 EF eeeeenees ‘ Pb 8 3 Carts” Pasar OUTPUT 
00004140 8F DF 00 iS PUSHAF #*F3.0 : 0961 
000000006 EF 1 FB 0009 be CALLS #1,LIBSWAIT Seal 
; Routine Size: 689 bytes, Routine Base: SCODE + 00DB6 
00000 HELP_PROC: : 1012 
0000 00000 ~ "WORD  “M<> 
SE 08 ce 6000¢ SUBL2 #8,SP 
000000006 EF F 0000 PUSHAB LIGSGET_ INPUT : 1020 
re ap oroeocos 2 eT ace 
FC AD 000000006 EF 3e nae MOVAB EDFHLP. STRING, Pa CP) 
000000006 oP Br $00 ; PUSHAB 1DTH 
000000006 EF 9F 000 PUSHAB tT NSPUT TPUT 
000000006 _ EF 06 FB 000 : CALLS #6, LeRsOuTPUT HELP 
000000006 EF 0 00 000 MOVL RO,ISTA TUS 
00v000000006 i t. ans BLBS istat ATUS, 2$ : 1032 
0 DD 0004 PUSHL 4 ‘ 
00 DD 00047 PUSHL #0 
000000006 EF DD 00049 PUSHL ISTATUS 
000000006 EF 4 FB OO4F a CALLS #4, LIBSSIGNAL comet 
3; Routine Size: 87 bytes, Routine Base: SCODE + 01067 
0 VERIFY_ISAM_DEFINITION: : 1082 
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3; Routine Size: 559 bytes, Routine Base: SCODE + 01272 | : 
DELETE_SECTION: ; 1338) ; 
0004 “WORD “M<R2> 3 
: 08 § SUBL2  #8,SP ; 
4 BC OvB a4 (R13), SECTION ; 
C eT OVL @8(R12),SECT_NUM ; 
000000 F ODF 0 p PUSHAL # : 1342 F 
0 F 9F 0001 USHAB # ; 
FC OAD C 00 0 16 OVL  SECT_NUM, =4(FP) : 
FC AD F OOO1A PUSHAB =4(FP) ; 
FB AD 7 0 ; 1D OVB SECTION, -8(FP) ; 
oR HR Bethe pte : 
000000006 EF 05 FB 90 7 CALLS #5,F IND OBJECT ; 
~ o000v i 0081 Soe i ere 
000000006 FF F 00 4 PUSHAB SHIFT : 1346 : 
4 DD O003A PUSHL #4 | ; 
000000006 FF 9F 000 PUSHAB PASS$FV_OUTPUT | F 
000000006 EF iaieaiae 03 Fe 004 CALLS #5 PASSURITE_ STRING | ; 
09 DD O004F PUSHL 4&9 : 
000000006 EF 9F 00051 PUSHAB PASS$FV_OUTP | : 
000000006 EF 6 FB 00057 ALLS #3 SASSORITE. _STRING 
0 9A 0005E MOVZBL SECTION,R | 
7E O0000000GEF40 9A 00061 MOVZBL PRIMARY -WIDTHCROI, -(SP) 
TE erFFECEO EF OF Oboe oo. Pie 
000000006 FF OF G0076 PUSHAB PAS$FV_OUTP 
000000006 EF 3 FB 0078 CALLS #4, SASSORITE. _ENUMERATED 
€ DD 00081 PUSHL Sect NuM 
000000006 EF oF 0083 PUSHAB PASSFV_OUTPUT 
000000006 EF eee 03 fe 0089 CALLS #5 PASSWRITE, INTEGER 
11 DD 00096 PUSHL #17 
000000006 FF 9F 00098 PUSHAB PASS$FV_OUTPUT 
000000006 EF 3 FB O09 CALLS #3,PASSWRITE STRING 
000000006 EF 9F OOOA PUSHAB PASSE UTPUT 
000000006 EF eit ! FB see CALLS PASSURI TELNZ ae 
ie SC b0 BS . Seer A NUM, 4 (FP) 08 
rcCOk F 000C PUSHAB ‘ | 
F8 AD 52 90 000C6 OVE CTION, -8(FP) | 
F8 AD 9F OOOCA PUSHAB “4tFP) 
000000006 EF 02 FB 000CD CALLS #2,DELETE_PRIMARY_SECTION 
04 00004 3$ ET : 1353 
3; Routine Size: 213 bytes, Routine Base: SCODE + 014A1 
OPTIMIZE_SCRIPT_PROC: > 1540 
000 SWORD ~*M<> 
03 000000006 EF coy 5 é BBC | fromm gimesioe : 1547 
00v000000006_ EF 0 D BBS #0, AUTO_TUNE , 3$ ; 1550 | 
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FFUN 18 =1984 2:17:14 VAX-11 Pascal V2.4-277 Page 64) 
HOG. Generated Code =3007 138% ae ae ys WTR SUNSRASTER FEBF-GRCJEDFFUNCS.PAS ©? 428% | 
000000006 EF FB OOIC CALLS #2, INDEXED_DESIGN 
vit 10¢ see) 5K | 
€ EF FB OolpR KATES BOCUNT YODER : 1538 | 
G EF FB 168 C/LLS #0.SEQ_REL_WORK : 1740 | : 
G EF 7 re IE CALLS 4 gSEQ-DEF : tad 
9000 G EF FB iF 18$: CALLS #0,WARN_OF_ERASE : 1749 
0 G EF FB OO1F CALLS #0. INIT~DEF + 1750 
9000 G EF FB 00 CALLS #0.SEQ_REL_WORK + 1751 
G EF iq Fe CALLS #0 ,REL-DEF > 1752 
1237 CF K FB 6 i 19$: CALLS 40 ADD_KEY_SCRIPT_PROC : 1756 
1272 CF 0 2 O0¢17 208: CAL. HO, DELETE_KEY_SCRIPT_PROC ; 1758 
1576 CF oY FB 6 i 218: CALLS #0 OPTIMIZE_SCRIPT_PROC ; 1760 
121F CF O FB 00¢¢> 228: CALLS. -#O REDESIGN. SCRIPT_PROC ; 1762 
022C 23$: : 
000000006 EF 94 09 ¢ sis: CLRB  —« TAKE_DEFAULTS : 177 
04 00232 RET : 177 
3; Routine Size: 563 bytes, Routine Base: SCODE + O16F1 i 
0000 $0000 vei teal “M<> ate 
000000006 EF 01 90 00002 MOVE #1, VISIBLE_QUESTION : 1821 : 
00000006 EF > Ot FB O0or PUSH Bo eny — 
? 00 O000010CG EF CF O0016 CASEL IDATA+268,#0,47 ; 1825 
000v 00 6 *DISPL 23 : 
000Vv 00 “DISPL 4$ 
000v 0024 *DISPL 6$ : 
000v 0026 “DISPL 16$ i 
0 Ov 0028 *DISPL 14$ 
Ov A *DISPL 10$ i 
000v 002C *DISPL 8$ 
000V 31 O002E BRW 18$ i 
00000046 BF OF 0 1 2$: PUSHAL #70 ; 1827 | i 
000000006 EF 1 FB 00037 CALLS” #1 ,QUERY | | 
00000026 BF OOF 5 4$: PUSHAL 3 ; 1828 
000000006 EF & Fe é CALLS “i QUERY 
0000002F BF OF F 6$ PUSHAL 38 ; 1829 
000000006 EF 1 FB i CALLS “ QUERY 
ooooo000c er OI! BERR Baas 88 cht Se 1 ay : 1830 
Ov if B BRB log | 
ooooo000s er POOOFF «ERE BRR aR 108s CUS HAL OP ouERY ead 
dv 11 0007A BRB log | 
0000000E BF DF O007C 12% PUSHAL #1 ; 1832. 


cca 


3; Routine Size: 


183 bytes, 


Generated Code 


00000000G_ EF i. 
0000000F F 

000000006 EF iy 
0000003C F 
443443 EF 1 
00000G EF 1 

Ov 
00000000G_ EF 


Routine Base: SCODE + 01924 


iste 


eR -0O7-o7—m 
> 
— 
o 
a 


1986 93:55:08 


CALLS #1,QUERY 
pre 9 


#) 

* QUERY 
PUSHAL 160, 
L & 


VAX-11 Pasca 
DISKSVMSMAST 


fh jNURER KEYS_SET 


cee VISIBLE _QUESTION 


trv feoe on SRCJEDFFUNCS.PAS; A iarr ii 8) 


VO6e 000" Pascal Compilation Statistics if: sep-1964 d 93 yi 08 DLSKSUMSMASTER  EEDF SRCJEDFFUNCS.PASS4@C289° 
COMMAND QUALIFIERS 
PASCAL/MACHINE /NODEBUG/NOCHECK/LIS=LIS$:EDFFUNCS/OBJ=OBJ$:EDFFUNCS MSRCS$:EDFFUNCS 
/CHECK=(NOBOUNDS worn SELECTORS, NOOVERF LOW,NOPOINTERS ,NOSUBRANGE ) 


/DEBUG= (NOS YMBO waite 
/ENV RONMENT = $ ss BUAD Seoeronee cigs S.PEN;1 
/LIST=_$2 3 pace SEEDE aL LIS COEF UNC 

cT=_$ DF .OBJ JEDFF 
/NOCROSS “REFERENCE /ERROR_LIMIT= NCS 08 Fi OATING /MACHINE_CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 

COMPILER INTERNAL TIMING 

Phase Faults CPU Time Ela seg Time 
Initialization 85 0:00.4 69: 2.1 
Source woes ye te 109 0:19.1 4:40.7 
Source List 4 0:02.3 0:07.1 
Tree Construction 236 00:01.1 884-8 
Flow Analysis 24 eb SE : 3-9 
Profit Analysis 41 0:00.7 0:02. 
Context ine ysis 22 0:06.5 0:12.4 
Name Packi ng 0:00.3 0:00.7 
Code , detest on 1 00:01.4 Bais 5 
Fina oie 00:05.8 0:16.1 
TOTAL 2026 00:38.1 05:29.0 


COMPILATION STATISTICS 


CPU Time: 00:38.1 (2921 Lines/Minute) 
Elapsed Time: 05:29.0 

Page Faults: 2026 

Compilation Complete 
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